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Software Reviews 



Möchten Sie als Software-Autor 
für den TRONIC- Verlag tätig werden? 



Wir würden uns freuen, in Ihnen einen Ansprechpartner für eine künftige 
intensive Zusammenarbeit zu finden. Der TRONIC-Verlag vereinbart mit 
seinen künftigen Software-Autoren pro veröffentlichte volle Seite (ein- 
schl. Programmbeschreibung) ein Honorar von DM 120,-. 

Dieses Entgelt wird fällig, wenn die Redaktion des Verlages sich für eine 
Veröffentlichung entscheidet. Die Auszahlung erfolgt also nicht erst nach 
Veröffentlichung in einer unserer Ausgaben, sondern früher. 

Der Verlag wird vom Autor berechtigt, seine Manuskripte (Programme) 
zur Darstellung im Heft heranzuziehen und abzudrucken. 



Einzusenden sind: 

- Programmbeschreibung 

- bespielte Cassette oder Diskette 

- Listing (mit Copyright) 

- Freiumschlag 



Zusätzlich kann jeder Ein- 
sender eines Programmes 
eine kostenlose Kleinanzei- 
ge in Computronic zum Pro- 
gramm hinzufügen. Die, 
gleichgültig ob sein Pro- 
gramm veröffentlicht wird, 
in der nächsten Computro- 
nic erscheint! 




Haben Sie Interesse? Haben Sie noch Fragen? 



Setzen Sie sich telefonisch mit unserer Redaktion in Verbindung! 



TRONIC-VERLAG 

DIE REDAKTION 





Wieder ein interessantes 
Spiel für den Laser 2001, 

bei dem Sie schnell reagie- 
ren müssen. Aber sehen Sie 
selbst! 



- Project - für den C-64. 




Ihre Aufgabe ist es, einen 
Flug ins Universum zu un- 
ternehmen, um dort Uran zu 
sammeln. Treten Sie nun, 
ausgerüstet mit Rakete, 
Mondfähre, Geigerzähler, 
Fallschirm usw. Ihre Reise 
an. 



- Jump about - 

für den ZX-Spectrum. 




Ein Spiel, das dem bekann- 
ten Jumpman an Schwierig- 
keitsgrad und interessanten 
Bildern in nichts nachsteht. 




ZX-81 



Reversi 

Das bekannte Brettspiel in der 
ZX-81 -Version. 



Prägen 11 

Basic-Programm 

zur Auswertung von Funktionen 
und Folgen. 



Seite 1 1 
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Atari 



The Big Quest 

Ein Spiel mit guter Grafik. Finden Sie den 
geheimnisvollen Schlüssel, um auf Schatz- 
suche gehen zu können. 

Fünf gewinnt 

Ein Strategiespiel für 2 Personen, 
geschrieben in Atari-Basic 
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TI-99 



Silver-Spar 

Die Erde wird von einem Weltraum- 
monster, dem bösen Göört bedroht. 
Ein Spiel in Extented-Basic geschrieben. 

Transfer 

„Transfer" gehört mit zu den ASC II 
Hilfsprogrammen und erweitert 
dieses Programmpaket. 



Commodore 64 

Datenbank 

Dateiprogramme für den Commodore 64 

Projekt 

Als Topprogramm auserwählt von der 
Redaktion. Sie sollen eine Reise 
zum Mond unternehmen, die in fünf 
Phasen gegliedert ist. 

Apple II 

Diamonds 

In diesem Spiel muß man mit seiner 
Spielfigur in einer dreistöckigen 
Höhle Diamanten aufsammeln. 
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Intswap 

Das in Maschinensprache geschriebene 
Programm erweitert das Applesoft-Basic 
mit Hilfe des & -Zeichens um zwei Befehle: 
„Swap" und „Instring". 



Seite 51 



YMO 



Garten 

Ein fleißiger Gärtner hat seinen kleinen 
Garten für die Saat vorbereitet. 
Nun muß er die Saat ausbringen. 

Schloß Gruselstein 

Für die Grundversion des VC-20. 
Fünf Gespenster, die in einer Burg 
herumspuken, sollen eingefangen werden. 

ZX-Spectrum 

Jump about 

Auserwählt als Topprogramm in der 
Septemberausgabe von „Computronic". 
Ein kleiner Floh und sein Freund sind 
in den Einflußbereich eines Zauberers 
geraten und müssen nun fliehen. 

Coleur Genie 

Fuchs und Hund 

Ein Spiel um drei hungrige Füchse, die 
gefüttert werden wollen. Für Colour Genie 
mit Rom-Modulen. 

Laser 1001 

Crazy-Cake 

Backe, Backe Kuchen ... Setzen Sie Ihre 
Bäckermütze auf, denn hier kommt ... 
die verrückte Kuchenbäckerei. 
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News 



In eigener Sache 

Liebe Leser, 

was uns während und nach der Erstel- 
lung der Hefte 6 + 7 so alles passiert 
ist, gehört sicherlich zum journalisti- 
schen Alltag. 

Leidtragender, und dies schmeckt uns 
ganz und gar nicht, ist der Leser. 
Die angesprochenen Hefte waren 
schlecht im Druck. Teilweise waren 
Passagen der Listings nicht lesbar. Un- 
sere Leser waren sauer - wir auch! 
Unser Service konnte daher nur darin 
liegen, wunschgemäß besser lesbare 
Listings in Fotokopie demjenigen Le- 
ser, der sie anforderte, zuzusenden. 
Wir hoffen, daß dies positiv aufgenom- 
men wurde. 

Uns fiel des weiteren auf, daß unser 
„Kassettenservice JI für den TI 99 keine 
Kassetten und Disketten und für den 
Apple keine Disketten angeboten hat. 
Das Fehlen wurde bei der Korrektur 



Schallschluckhaube 

Drucken im Flüsterton ist keine Hexe- 
rei - mit Schallschluckhauben kann 
das Druckgeräusch vermindert wer- 
den. Das neue Schallschluckgehäuse 
des Versandhändlers Inmac soll einen 
Geräuschpegel von 70 dB auf unter 50 
dB reduzieren. Das Acrylgehäuse 
spiegelt und reflektiert laut Anbieter 
nicht - die Sicht auf das bedruckte 
Papier soll eben unbeeinträchtigt blei- 
ben. 

Das lärmdämmende Gehäuse gibt es in 
drei Versionen - auch für Drucker mit 
Einzelblatteinzug. Eine Probezeit von 
30 Tagen gehört zum Service der Fir- 
ma. 

Inmac GmbH 
Frankfurter Straße 103 
6096 Raunheim 



Messetermine 84/85 

6.- 8. Sept. Commodore Fach- 
ausstellung Frankfurt 
17.-21. Okt. Hobby-Electronic 

Stuttgart 
14.-18. Nov. Comdex Las Vegas 
3.- 6. Dez. Comdex Amsterdam 
13.-16. Juni 85 Internationale 

Computershow Köln 
Fachausstellungen „Computertage 84" 
31. Aug.- 2. Sept. Kaiserslautern 
1. Sept.- 4. Sept. Göttingen 
4. Sept.- 6. Sept. Gießen 
14. Sept.- 16. Sept. Hagen 

22. Sept.-24. Sept. Duisburg 
12. Okt. -14. Okt. Siegen 

19. Okt. -21. Okt. Ludwigshafen 

23. Nov.-25. Nov. Fulda 

1. Dez. - 5. Dez. Heidelberg 
8. Dez. - 9. Dez. Neu Isenburg 
5. Hessische Computertage 



übersehen - selbstverständlich könnt 
Ihr bestellen. 

Dazu: In den Heften 8 und 9 haben wir 
unseren Kassettenservice neu geord- 
net und auch auf unseren „Blitz-Ser- 
vice" hingewiesen - POSTEINGANG 
= POSTAUSGANG. Schneller geht's 
wirklich nicht. Laßt Euch überra- 
schen. 

Und dann der Hammer mit den „ge- 
klauten" Programmen. So geht's nun 
wirklich nicht! Jeder Leser hat An- 
spruch auf neue, selbstentwickelte 
Programme. Unsere Programmierer je- 
denfalls bringen immer wieder neue 
und gute Software. Wir werden zu- 
künftig solche Zuschriften nicht mehr 
beantworten. 

Unsere Redaktion fragt - Hersteller 
oder Händler antworten nicht! Um ei- 
gene Programme und uns zugesandte 
Programme entwickeln und testen zu 
können, haben wir selbstverständlich 
jedes angebotene Computer-System 
im Hause. 



Nun war unser DRAGON 32 defekt. 
Schnelles Handeln war notwendig. 
Wie wenig unsere (und letztlich auch 
Eure) Partner Verständnis zeigen, 
wurde uns am Beispiel der Fa. VOBIS 
deutlich. Ein Service, der offensicht- 
lich bei diesem Händler klein ge- 
schrieben wird! Dazu kann man nur 
feststellen: 

BESTELLEN gern - SERVICE nein!!! 
Aber auch ein LOB: ATARI zeigt nach 
wie vor Kooperationsfähigkeit. Weiter 
so, wir werden dies zu würdigen wis- 
sen. 

Euch liegt jetzt Heft 9 vor, wie gefällt 
es Euch? Seid Ihr von den Program- 
men begeistert? Habt Ihr Wünsche 
und Anregungen? 

Schreibt uns, wir wollen Eure Wün- 
sche berücksichtigen, damit Ihr auch 
weiterhin unsere treuen Leser bleibt. 
Denn - wir sind anders als die ande- 
ren. 

Bis demnächst 

Eure Computronic-Redaktion 



Wayne Creekmore 
Mikro-Wissen griffbereit 

Wer seine Mitarbeiter auf den betrieb- 
lichen Mikro-Einsatz vorbereiten 
wollte, hatte bisher schon verschiede- 
ne Möglichkeiten, dies zu tun. Diese 
Palette hat sich nun um eine neue, 
kostengünstige Möglichkeit erweitert: 
den illustrierten Leitfaden „Mikro- 
Wissen griffbereit" von Creekmore. 
Ohne sich mit langatmigen Betrach- 
tungen über die Entwicklung der 
Rechentechnik vom Abakus bis zu 
den EDV-Großanlagen aufzuhalten, 
kommt der Autor ohne Umschweife 
direkt zur Sache. So erfährt der Leser 
bereits auf der ersten Textseite, daß 
ein Computer nichts anderes kann als 
bestimmte mathematische Operatio- 
nen auszuführen, daß er nicht bei allen 
Aufgaben optimal eingesetzt ist, daß 
aber niemand schneller als er die oft 
zitierte „Nadel im Heuhaufen" findet. 
Die nächste Textseite erklärt dann an 
einem gut gewählten Beispiel den Un- 
terschied zwischen Hardware und 
Software bzw. zwischen Hardware ei- 
nerseits und Betriebssystem und An- 
wenderprogrammen andererseits. 
In der Folge werden dann Seite für 
Seite wichtige Vorgänge beim profes- 
sionellen und kommerziellen Einsatz 
erläutert. So gibt die Seite 16 bei- 
spielsweise an, wie die Grundbaustei- 
ne Eingabe, CPU, interner Speicher, 
externer Speicher und Ausgabe zu- 
sammenwirken, wenn eine editierte 
Datei abgespeichert werden soll und 
was mit der Originaldatei geschieht. 
Die komprimierte, durch eine aufwen- 
dige Graphik unterstützte Darstellung 
hält den Leser 64 Seiten lang bei der 
Stange. Am Ende weiß er dann das 
Wichtigste über die interne Datenver- 
arbeitung, über Computersprachen, 



Anwender-Software, die Hardware- 
Ausstattung und die Planung eines 
Mikro-Kaufs. Dieses Wissen gibt Si- 
cherheit bei der Lektüre weiterführen- 
der Bücher, bei Schulungsmaßnahmen 
und Seminaren und beim Computer- 
Einsatz selbst. 

Braunschweig: Vieweg/Frankfurt: 

Ashton-Tate 1984, DM 24,80 

Dateiverwaltung 
für Einsteiger 

Damast nennt sich ein Dateienpro- 
gramm für den Home-Computer TI 99/ 
4A von Texas Instruments. Es ist 
hauptsächlich geeignet zum Erstellen 
und Verwalten von Bestands-Dateien 
wie zum Beispiel Adressen-Karteien. 
Als Hardware ist der TI 99/4A mit 
Speichererweiterung und Disketten- 
system erforderlich. 
Laut Anbieter gehen die Fähigkeiten 
von Damast weit über die des Tl-eige- 
nen Moduls „Datenmanagement und 
Analyse" hinaus. So kann der Anwen- 
der den Aufbau seiner Datenbank, der 
Bildschirmmaske und der Druckfor- 
mate frei wählen. Mit den Druckpro- 
grammen lassen sich Adreßaufkleber, 
Tabellen und Listen erstellen. 
Ein mitgeliefertes Textprogramm er- 
laubt das Mischen von Texten und 
Dateiinhalten, etwa zum Erstellen von 
Serienbriefen. In allen Druckprogram- 
men4cönnen die benötigten Datensätze 
frei selektiert werden. Das Programm 
ist aus mehreren Einzelmodulen zu- 
sammengesetzt, die je nach Bedarf mit- 
einander kombiniert werden können. 
Der Preis bewegt sich entsprechend 
zwischen 200 und 600 Mark. 
Computer-Hüsli 
Hippelstr. 37 
8000 München 82 
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Games of the Olympic 
for Computer 

Nachdem die Olympischen Spiele in 
Los Angeles nun zu Ende sind, und wir 
Ringe unter den Augen haben, sind für 
den Computer neben Summer Games 
(wir haben das Spiel in der August- 
Ausgabe vorgestellt) jetzt auch Hes 
Games und Decathlon im Handel er- 
hältlich. Nun können wir auch nach 
den Medaillen greifen. 

Hes Games 

Hes Games setzt sich aus 6 Sportarten 
zusammen, wie 100-Meter-Lauf, 110 
Meter Hürden, Weitsprung, Bogen- 
schießen, Sprung vom 1 -Meter-Brett 
und Gewichtheben. Nachdem das Pro- 
gramm eingeladen ist, besteht die 
Möglichkeit, seinen Namen, die Na- 
tion, Shirtfarbe und Sockenfarbe ein- 
zugeben. Der Joystickport läßt sich 
durch Bewegung des Joysticks än- 
dern. Im Menue besteht die Auswahl- 
möglichkeit zwischen den einzelnen 
Sportarten. 

Bevor wir zum 100-Meter-Start kom- 
men, kann man sich den Weltrekord 
auf der Anzeigentafel zeigen lassen. 
Nach Aufforderung zum Start muß der 
Läufer durch seitliche Bewegungen 
des Joysticks über die Laufbahn be- 
wegt werden. Je schneller der Joy- 
stick bewegt wird, desto schneller der 
Läufer. 

Beim 110-Meter-Hürdenlauf sind die 
gleichen Bedingungen wie beim. 100- 
Meter-Lauf. Wir müssen beim Über- 
springen der Hürden mit den Bewe- 
gungen des Joysticks aufhören, da 
sonst der Läufer stolpert. 
Um große Weiten im Weitsprung zu 
erzielen, muß der Absprung genau ge- 
troffen werden, beim Erreichen der 
Absprungmarke ist der Joystick nach 
oben zu drücken und bei der Landung 
nach rechts. Weiten von 8 Metern 



sind keine Seltenheit. Natürlich muß 
der Springer auch eine dementspre- 
chende Geschwindigkeit haben. 
Vom 1 -Meter-Brett gekonnt ins kühle 
Naß einzutauchen, ohne auf den 
Bauch oder Rücken zu fallen, ist auch 



Schluß. Zwei Arten von Gewichthe- 
ben sind zu absolvieren. Das Stoßen 
und das Reißen. Das Heben der Ge- 
wichte ist durch rechtzeitiges Vor- 
und Zurückbewegen des Joysticks 
eine schwere Sache. 




nach längerer Zeit des Spielens sehr 
schwer. Traumnoten, haben wir hier 
nicht erreicht. Aber Übung macht den 
Meister. 

Sein Können muß man beim Bogen- 
schießen beweisen. Zum Spannen des 
Bogens muß die Feuertaste gedrückt 
und bis zum Schuß gehalten werden. 
Durch ziehen des Joysticks nach hin- 
ten wird der Bogen gespannt. Nun 
kann man auf eine Distanz von 30, 50, 
70 und 90 Meter seinen Pfeil ins Ziel 
bringen. Wobei der Wind, der aus al- 
len Richtungen und mit wechselnder 
Stärke auftritt, berücksichtigt werden 
muß. 

Wohl zu der schwersten Sportart, dem 
Gewichtheben, kommen wir zum 




Decathlon 

Neben Summei Games und Hes Games 
ist Decathlon die dritte Sportart, die 
zum sportlichen Wettkampf aufruft. 
Decathlon umfaßt 10 Sportarten, wie 
100-Meter-Lauf, Weitsprung, Kugel- 
stoßen, Hochsprung, 400-Meter-Lauf, 
Diskus, Hochsprung, Speerwurf und 
1500-Meter-Lauf. Also ein echter 
Zehnkampf, den man mit vier Spielern 
spielen kann. 

Besondere Ansprüche werden an die 
Spieler nicht gestellt, denn alle Sport- 
arten werden durch seitliche Bewe- 
gungen des Joysticks ausgeführt. Zum 
Absprung ist die Feuertaste zu 
drücken. 

Beim 100-Meter-Lauf, 1 10 Meter Hür- 
den, 400-Meter-Lauf und 1500-Me- 
ter-Lauf spielen Einzelspieler gegen 
den Computer, der es jedem Spieler 
natürlich besonders schwer macht, zu 
gewinnen. Auf eine ausführliche Be- 
schreibung des Programms wurde ver- 
zichtet, da das Programm vom Ablauf 
her Summer Games und Hes Games 
gleicht. 

Zusammenfassung 

Alle drei Spiele sind empfehlenswert, 
vor allem darum, weil diese Program- 
me Kinder wie Eltern gleichermaßen 
begeistern. Eine Vergabe der Noten 
würde wie folgt aussehen: Summer Ga- 
mes „sehr gut", Hes Games „gut" und 
Decathlon „befriedigend". Summer Ga- 
mes wurde Testsieger, weil einfach al- 
les stimmt, wie Grafik, Bewegungsab- 
lauf, Farben und vieles mehr. Alle 
Spiele gesehen bei: SOFTSELL in 
München. 

Rolf Freitag 
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Kinder lernen am 
Computer 



Ein von Erziehungswissenschaftlern 
geleiteter Modellversuch zeigt bisher: 
Kindern macht der Umgang mit Com- 
putern Spaß. In ihrer Freizeit ziehen 
sie jedoch den Sport dem Elektronen- 
hirn vor. 

Unter der Leitung von drei Erzie- 
hungswissenschaftlern der Universi- 
tät in Saarbrücken hat in der Kinderta- 
gesstätte der saarländischen Stadt 
Ottweiler (Kreis Neukirchen) ein Mo- 
dellversuch begonnen, bei dem zehn 
Jungen und Mädchen zwischen vier 
und vierzehn Jahren an einem rund 
5000 Mark teuren Elektronengehirn 
lernen. Bisherige Zwischenbilanz: Den 
Kindern bereitet das Spielen am Com- 
puter durchweg Spaß und sie lernen 
dabei logisches Denken, doch fahren 
sie nach wie vor lieber Rad, Turnen 
oder spielen lieber Fußball. 
„Komm her, ich zeig Dir das mal", sagt 
der vor dem Bildschirm, Diskette und 
Schreibmaschinentastatur sitzende 
vierjährige Jens, wenn in der Kinder- 
tagesstätte in Ottweiler mal wieder ein 
interessierter, aber computerunerfah- 
rener Reporter auftaucht. Der gerade 
1,08 Meter große Blondschopf, der 
noch Papa oder Mama braucht, wenn 
er „mal aufs Klo muß", steht mit dem 
Computer bereits auf Du und Du. Mit 
dem kleinen rechten Zeigefinger auf 
die richtige Taste drücken - und schon 
erscheint in grüner Schrift auf dem 
Computer-Bildschirm die Frage: „Wie 
heißt Du? Schreibe Deinen Namen und 
drücke die Abschick-Taste!" Vom 
sechsjährigen Rosario und dem neun- 
jährigen Michael, der schon die Schu- 
le besucht, hat Jens mittlerweile ge- 
lernt, daß er nun wie auf der Schreib- 
maschine die Buchstaben J-e-n-s tip- 
pen und die Sendetaste drücken muß. 

Gegenseitige Hilfe 

Schon geht der Dialog mit dem Com- 
puter weiter. „Wie alt bist Du, Jens?" 
fragt dieser auf dem Bildschirm, und 
nach dem drücken der Taste „4" die 
Antwort: „Du bist 4 Jahre alt. Danke, 
Jens!" Die älteren Kinder oder die Kin- 
dergärtnerinnen stehen hinter den 
kleinen Steppkes und lesen ihnen vor, 
wenn sie es nicht selbst können. 
„Logo lernen mit Logo", heißt das nach 
einem Buch des amerikanischen Infor- 
matikers und Psychologen Pappert 
von einer Arbeitsgruppe am Lehrstuhl 
des Saarbrücker Erziehungswissen- 
schaftlers Prof. Kötter entwickelte 
Computerprogramm. Eines seiner 
Grundprinzipien: Der Computer malt 
einen Igel auf den Bildschirm und mit 
Hilfe dieses Igels sowie Befehlen wie 
„vw" (vorwärts), „rw" (rückwärts) 
oder „re" (rechts) und „li" (links) ler- 



nen die Kinder, ein Haus samt Dach 
oder Kreise zu malen. Wichtig dabei 
ist jedoch auch, daß sie ihren „Bild- 
schirm-Igel" die richtige Zahl von 
Schritten vorwärts, rückwärts oder 
nach rechts und links bewegen. „Auf 
solche Weise finden die Kinder einen 
ersten Bezug zur Mathematik", sagt 
der an der Projektleitung beteiligte Er- 
ziehungswissenschaftler Niegemann 
von der Saar-Universität. 

Nicht computersüchtig 

Die Skepsis der saarländischen Wis- 
senschaftler und Kindergärtnerinnen 
in Ottweiler wegen des Modellver- 
suchs „Kinder lernen am Computer" 
ist inzwischen' vorsichtigem Optimis- 



läuft Rollschuhe oder übt Fahrradfah- 
ren. Andererseits wird der Computer 
von den Kindern als zusätzliche Spiel- 
möglichkeit begeistert aufgenommen 
und vier von fünf der Kleinen glauben, 
daß sie dabei etwas lernen. „Schreiben 
und Lesen" beispielsweise - oder: 
„Man kann rechnen und der Compu- 
ter sagt, ob es richtig oder falsch ist". 
Fazit der an dem saarländischen Mo- 
dellversuch beteiligten Wissenschaft- 
ler und Pädagogen: Da die neue Tech- 
nologie nicht aufzuhalten ist, sollte 
man durchaus schon im Kindesalter 
„versuchen, die Chancen, die der 
Computer bieten kann, zu nutzen, 
(aber auch) eventuelle Gefahren früh- 
zeitig erkennen". 




mus gewichen. Nach anfänglich gro- 
ßer Begeisterung, so zeigte sich, lernen 
die meisten Kinder schon nach kurzer 
Zeit nur noch ein bis drei Mal pro 
Woche - und das in der Regel höch- 
stens eine halbe Stunde hintereinan- 
der - am Computer. 
Dann - so die Antworten einer Frage- 
bogenaktion unter den 4- bis 14jähri- 
gen - „verliert man die Lust", „wird es 
langweilig" oder es „hängt einem zum 
Halse raus" - und man spielt lieber im 
Freien mit den anderen Fußball, turnt, 



Warum also nicht schon 4- oder 6jäh- 
rige mit dem Computer konfrontieren? 
Der kleine Jens möchte jedenfalls 
trotz oder ob seiner Computererfah- 
rung „am liebsten Feuerwehrmann" 
werden. 

Genau in diese Marktlücke hat sich 
die Firma >Tobby - Disk International < 
mit ihrem Softwareangebot angepaßt. 
„Weg von der Gewalt", unter diesem 
Motto steht das Softwareangebot, wie: 
1000 und eine Nacht, Puzzlespiele 
und Denkspiele. . R.F. 



Vorstellung: »Die Geschichte der 
Mikroelektronik« 

Wo bitte liegt Silicon Valley? 

Vierzig Meilen südlich von San Fran- 
cisco entstand aus einer Ansammlung 
von Bauelemente- und Computerher- 
stellern, Nobelpreisträgern, sonder- 
linghaften Wissenschaftlern, verbis- 
senen Programmierern, verbohrten 
Technikern, Spezialisten für elektro- 
nische Kriegsführung und schwerrei- 
chen Kapitalanlegern das Nervenzen- 



trum der mikroelektronischen Revo- 
lution: Silicon Valley. 

Dirk Hanson, der sich in seiner jour- 
nalistischen Arbeit auf die Wechsel- 
wirkung zwischen Mikroelektronik 
und Wirtschaft spezialisiert hat, re- 
cherchierte zwei Jahre lang in Silicon 
Valley. Sein Buch DIE GESCHICHTE 
DER MIKROELEKTRONIK vermittelt 
fundiertes Wissen, spannend erzählt. 
Gesehen bei: Heyne Computer Bü- 
cher, Heyne-Buch Nr. 15/3, DM 
12,80. Deutsche Erstausgabe. 
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Die Eitdlosschleife Begin ... Agaitt 



Diese Programmschleife kennt keine 
Aussprungbedingung, ist also endlos. 
Die Hauptanwendung dieses Befehls- 
wortes liegt im Aufruf bzw. in der un- 
begrenzt häufigen Abarbeitung eines 
(periodisch zu durchlaufenden) 
Hauptprogrammes. Die Syntax dieser 
Schleife entspricht weitgehend der 
BEGIN-UNTIL-Schleife. 

Beispiel: 

:TEST 

BEGIN 

. "COMPUTRONIC" CR (die- 
se Anweisung wird endlos ausgeführt) 

AGAIN 

Zu bemerken ist noch, daß es sich bei 
dieser Schleifenart um die schnellste 
FORTH-Schleife handelt. 

BEGIN-WHILE-Schleife 

Auch diese Schleifenstruktur wird be- 
liebig lange durchlaufen. Im Gegen- 
satz zur BEGIN-UNTIL-Schleife er- 
folgt die Abfrage einer Aussprungbe- 
dingung (Flag) am Anfang des Schlei- 
fenkernes. Ist die Bedingung am 
Schleifenbegin nicht erfüllt, so wird 
die Schleife nicht ein einziges Mal 
durchlaufen. Das folgende Beispiel 
zeigt die Syntax dieser Schleife: 

BEGIN 

(Bedingung zur Erzeugung 
des Flags) 

WHILE (solange das Flag - 1 ist, 
wird der folgende Teil 
durchlaufen) 

REPEAT (Rücksprung nach BEGIN) 

In dem folgenden Beispiel wird die Ta- 
statur abgefragt. Ist die Taste „C" ge- 
drückt, so wird der Text „TASTE C 
IST GEDRÜCKT" ausgegeben. Die 
Schleife wird erst verlassen wenn eine 
andere Taste gedrückt wird. 

: TASTE 
BEGIN 
KEY 67 - = (Ist Taste „C" 
gedrückt?) 

WHILE 

. "TASTE C IST GEDRÜCKT" 
CR 

REPEAT (Springe zurück) 

Wir haben nun alle verfügbaren 
FORTH-Schleifen kennengelernt. Es 
gibt in FORTH auch die Möglichkeit 
noch weitere Arten von Schleifen zu 
definieren, doch dies ist dem etwas 




erfahreren Programmierern vorbehal- 
ten. Wer sich genauer damit beschäfti- 
gen möchte, muß auf andere Literatur 
zurückgreifen, da die Beschreibung 
dieser Definitionen den Rahmen die- 
ses Kurses sprengen würde. 



FORTH-Programmbeispiele: 

Berechnung des größten gemeinsamen 
Teilers zweier Zahlen: 

: TEILER (Größter gemeinsamer Teiler 
errechnen) 
BEGIN 
SWAP OVER MOD DUP 
= 
UNTIL 
DROP 



27 21 TEILER <RETURN> 3 OK 
8 6 TEILER <RETURN> 2 OK 

Die Berechnung wurde mit Hilfe des 
Euklidschen Algorithmus verwendet. 
Zuerst bestimmt man den Rest >R< 
zweier Zahlen, >A< und >B< f durch (A 
MOD B). Ist R=0, dann ist B der ge- 
suchte Teiler. Ist RoO, so wird A=B 
und B=R. Danach wir die obige Divi- 
sion wieder ausgeführt. Solange, bis 
die Bedingung R=0 erfüllt ist. 

Variablen und Konstanten in Forlh 

Obwohl die meisten Zahlenwerte und 
Rechenoperationen über den Stack ge- 
führt werden, kann man trotzdem 
auch Konstante und Varibalen defi- 
nieren. 



In Basic wird eine Konstante wie folgt 
definiert: * 

10LET Y= 10 

Der Konstanten Y wird der Zahlen- 
wert 10 zugeordnet. In FORTH würde 
das gleiche so geschrieben: 

10 CONSTANT Y <RETURN> OK 

Durch diese Befehlsfolge wird im 
Wörterbuch eine Konstante „Y" ein- 
getragen, die den Zahlenwert 10 ent- 
hält. Sobald der Variablennamen auf- 
gerufen wird, erhält der Stack den ent- 
sprechenden Zahlenwert. 



Beispiele: 

12 Y + . <RETURN> 22 OK 
5 Y * . <RETURN> 50 OK 
Y Y * . <RETRUN> 100 OK 



Das ganze kann auch in einer Definiti- 
on stehen: 

:Test 

Y*. 



7 TEST <RETURN> 70 OK 

Wie wie wissen, können wir statt der 
Konstanten auch einfach folgendes 
schreiben: 

: Y 10; 

Dies hat zwar die gleiche Wirkung wie 
die Definition einer Konstanten, ist je- 
doch in der Ausführungszeit wesent- 
lich länger. 



Computronic 



7 



Im Gegensatz zu den meisten BASIC- 
Versionen können die Namen der Va- 
riablen, Konstanten und Befehlen in 
den meisten FORTH- Versionen bis zu 
3 1 Zeichen lang sein. Es ist so möglich, 
den Variablen einen sinnvollen Na- 
men zu geben, um somit das Programm 
übersichtlicher zu machen. 

Ähnlich wie die Konstanten werden in 
FORTH auch die Variablen definiert: 

10 VARIABLE TAG 

In diesem Beispiel wurde der Varia- 
blen „TAG" der Wert 10 zugewiesen. 
Der Unterschied zwischen Variablen 
und Konstanten besteht darin, daß die 
Konstante nach der Definition ihren 
Wert immer behält. Dieser wird beim 
Aufruf der Konstanten auf den Stack 
gelegt. „Beim Aufruf einer Variablen 
wird dagegen nicht der Wert der Va- 
riablen, sondern die Adresse dieser 
Variable auf den Stack gelegt. Zum 
Ändern bzw. Auslesen des Wertes ei- 
ner Variablen, benötigen wir noch 
zwei weitere Befehle, nämlich den Be- 
fehl :Wert holen (Load) ; und den Be- 
fehl :Wert wegspeichern (STORE). 

Für den STORE-Befehl wird in Forth 
das „I" Zeichen verwendet. Dieser Be- 
fehl entspricht weitgehend dem be- 
kannten POKE aus dem BASIC. Je- 
doch wird hier keine 8-Bit-Zahl, son- 
dern eine 16-Bit-Zahl abgespeichert. 
Die Syntax des STORE-Befehl: 

! (nl n2 adr — > nl) 



Für den LOAD- Befehl wird in Forth 
das " " Zeichen verwendet. Dieser Be- 
fehl ist mit dem Peek-Befehl im Basic 
zu vergleichen. Auch hier wird eine 
16-Bit-Zahl ausgelesen: 



Die Syntax des LOAD-Befehl: 

@(nl n2 adr — > nl) 

Die eben vorgestellten Befehle LOAD 
und STORE arbeiten nur mit 16-Bit- 
Zahlen. Will man dagegen nur ein ein- 
ziges Byte, also eine Dezimalzahl zwi- 
schen und 255 abspeichern, so ver- 
wendet man das Wort C! „Mit Ce wird 
ein Byte auf den Stapel geholt. Dabei 
werden die oberen 8 Bits zu Null ge- 
setzt. 

Wenn wir nur den Variablennamen, 
gefolgt von einem Dezimalpunkt 
(Print) eingeben, so erhalten wir die 
Adresse der Variablen. Diese kann je 
nach FORTH- Version und Anzahl der 
Definitionen verschieden sein. 

TAG . <RETURN> 4104 OK 



Möchte man den Wert der Variablen 
TAG auslesen, so geschied dies wie 
folgt: 

TAG @ . <RETURN> 10 OK 

Das Ändern einer Variablen geht 
ebenso einfach: 

13 TAG !< RETURN) OK 

(Der Wert 13 wird gespei- 
chert) 

TAG @ . <RETURN> 13 OK 

(Der Wert wird ausgelesen) 

Auf ähnliche Weise kann man auch 
den Wert einer schon vereinbarten 
Konstanten ändern. Die Adresse einer 
Konstanten erhält man mit dem Be- 
fehlswort "'" (Einzelapostroph). 
Die Syntax: 

' (Name) (nl n2 — > nl n2 adr) 
Die Adresse der Konstanten (Name) 
wird auf den Stack gebracht. 



Beispiele: 

20 CONSTANT TRONIC <RETURN> 

OK 

(der Konstanten TRONIC wird der 

Wert 20 zugewiesen) 

TRONIC . <RETURN> 20 OK 
(der Wert wird ausgelesen) 

30 ' TRONIC ! <RETURN> OK 

(der Wert 30 wird in die Konstante 

geschrieben) 

TRONIC . <RETURN> 30 OK 
(nochmai überprüfen) 



FORTH- Zahlensystem 

Bei der Initialisierung von Forth, wird 
immer das Rechnen zur Basis 10, also 
die gewohnte Dezimalrechnung ange- 
nommen. Forth kann jedoch auch mit 
allen anderen Zahlensystemen rech- 
nen. Will man z. B. mit Hexadezimal- 
zahlen arbeiten, so kann mit dem Be- 
fehl „HEX" auf diesen Modus umge- 
schaltet werden. Danach erfolgen alle 
Ein- und Ausgaben in hexadezimaler 
Schreibweise. 

HEX (nl n2 n3 — > nl n2 n3) 

Möchte man wieder in den Dezimal- 
Modus zurück, so geschieht dies mit 
dem Befehl "DECIMAL". 

DECIMAL (nl n2 n3 -- > nl n2 n3) 



Beispiel: 

DECIMAL 90 HEX . <RETURN> 5A 
OK 

Die Dezimalzahl 90 entspricht der He- 
xadezimalzahl 5A. 



HEX 5A DECIMAL . <RETURN> 100 

OK 

Das umgekehrte Beispiel. 

Möchte man ein anderes Zahlensy- 
stem verwenden, muß man in die Sy- 
stem-Variable BASE den entspre- 
chenden Wert speichern. Durch den 
Befehl HEX wird eine 16 und durch 
DECIMAL eine 10 in die Variable ge- 
schrieben. 

Möchten wir beispielsweise das Binär- 
system programmieren, so müssen wir 
nur die Zahl 2 (Zustand und 1) in die 
Variable BASE bringen. Den Um- 
schalt-Befehl nennen wir BIN. 

: BIN 2 BASE ! ; 

Mit dem Befehl BIN können wir nun 
jederzeit auf Binär-Modus umschal- 
ten. 

DECIMAL 255 BIN . 

<RETURN> 1 1 1 1 1 1 1 1 OK 
DECIMAL 16 BIN. 

<RETURN> 10000 OK 
BIN 01010101 DECIMAL. 

<RETURN> 85 OK 

BIN 00010000 DECIMAL . 

<RETURN> 16 OK 



Zum Abschluß noch ein kleines 
FORTH-Programm: 

Berechnung der Primzahlen zwischen 
zwei Grenzen. 

4 VARIABLE ZEILE 

: TEST MOD 0=; 

: DRUCKE DUP 4 .R ZEILE e DUP 0= 
IF CR DROP 4 
ELSE 1 - 
THEN 

DROP ; 

: PTEST DUP 2 / 2 DO DUP I TEST 
IF LEAVE 

THEN LOOP DUP IF 
DRUCKE 
ELSE DROP 
THEN 
DROP; 

: PRIM (ende anf — > ) 

CR 4 ZEILE ! 

DO I PTEST LOOP CR ; 

200 1 PRIM <RETURN> 



1 


2 


5 


7 


11 


13 


17 


19 


23 


29 


31 


37 


41 


43 


47 


53 


59 


61 


67 


71 


73 


79 


83 


89 


97 


101 


103 


107 


109 


113 


127 


131 


137 


139 


149 


151 


157 


163 


167 


173 


179 


181 


191 


193 


197 


199 


OK 
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Für unsere Atari-Freunde 



1. Tip: 

Der einfachste Weg, sich eine kom- 
plette Variablenliste zu verschaf- 
fen ist folgender: Laden Sie das Pro- 
gramm, (oder geben Sie es ein). Schrei- 
ben Sie dann SAVE"S:" und drücken 
Sie RETURN. Drücken Sie BREAK 
wenn etwa die Hälfte des Bildschirms 
mit Zeichen gefüllt ist. Das 15. Zei- 
chen von links oben ist das erste Zei- 
■ chen der Variablenliste, die mit (min- 
destens) einem Herzchen (CHR$(0)) 
endet. Der letzte Buchstabe eines Na- 
mens ist immer invers dargestellt. Be- 
steht der Name aus nur einem Buch- 
staben, so ist dieser invers. 
Beispiele: 

NAME (_=invers) 
A (Variable a) 

NAME$ (Sring- Variable) 
FELD( (DIMensioniertes Feld) 

CDE ~ (Die Variablen C, D, E hin- 
tereinander) 

Auf dem Bildschirm sieht das so aus: 
NAM E AN AMESFELD (CDE V ... 
Die Variablen sind in der Reihenfolge 
ihrer Eingabe geordnet. Auf dem Bild- 
schirm sieht man genau das, was 
durch Befehle SAVE"C:" bzw. SA- 
VE "D: (name)" auf Cassette bzw. Disk 
geschrieben würde. Mit SAVE"P:" 
(P=Printer, S=Screen) könnte man das 
ganze auch auf dem Drucker ausge- 
ben. 

Oft geistern in dieser Liste Namen her- 
um, die im Programm gar nicht mehr 
benutzt werden. Wenn man sich z. B. 
bei der Eingabe eines Namens vertippt 
hat und den Fehler erst nach dem 
Drücken von RETURN bemerkt, dann 
hat man einen neuen Namen in der 
Liste, der sich auch mit CLR (alle Va- 
riablen löschen) nicht mehr beseitigen 
läßt. 

Wenn Sie das Programm jedoch mit 
L1ST"C:" bzw. LIST"D:(name)" abspei- 
chern und danach mit „ENTER"... wie- 
der laden, dann wird eine neue Liste 
erstellt, die wirklich nur die im Pro- 
gramm vorkommenden Namen ent- 
hält. 

2. Tip: 

Den Ausdruck eines Fragezeichens 

bei der Ausführung des INPUT-Be- 
fehls kann man mit folgender Pro- 
zedur verhindern: 

OPEN #X,4,0,"E:" (eröffnet einen 
Datenkanal vom 
EDITOR) 
INPUT #X,NAME (X=l-7, jedoch 

nicht 6) 
CLOSE #X 

Wenn mehrere INPUTs gemacht wer- 
den müssen, dann folgt, der CLOSE- 
Befehl (Datenkanal schließen) nicht 
sofort. 

NAME kann natürlich auch eine 
String- Variable sein. 



GRAPHICS ist das gleiche wie 
OPEN #6,12 l r u S:", daher kann man 
für X keine 6 einsetzen, wenn vorher 
ein Graphikmodus eröffnet wurde. 
Wenn sie schreiben OPEN 
#X r 9,0,"E:", dann können Sie mit dem 
INPUT- Befehl (wie oben) etwas einle- 
sen, ohne daß der Benutzer RETURN 
gedrückt hat. 

Beispiel: 

Dieses Programm liest ein Wort in die 
Variable A$ ein, sobald die horizonta- 
le Position des Cursors größer als 10 
ist. 

10DIM A$(10) 

20 GRAPHICS 0: REM ENTSPRICHT 
DATENKANAL VOM/ZUM BILD- 
SCHIRM 

30 OPEN ^.O/'E:": REM DATEN- 
KANAL VOM EDITOR 
40 OPEN #2,4,0, "K:": REM DATEN- 
KANAL VOM KEYBOARD 
50 GET #2,T: REM CODE EINER GE- 
DRÜCKTEN TASTE HOLEN 
60 PRINT CHR$(T);: REM ZEICHEN 
AUSDRUCKEN 

70 IF PEEK (85)^ 10 THEN 50: REM 
HORIZONTALE CURSORPOSITION 
80 POSITION 2,0: REM CURSOR AN 
DIE ANFANGSPOSITION 
90 INPUT #1,A$ 

100 PRINT "A$="; CHR$(34); A$; 
CHR$(34): REM ERGEBNIS 
110 END:REM IMPLIZIERT _CLOSE 
#l:CLOSE #2_ 

Mit dem Befehlt END kann man alle 
Datenkanäle auf einmal schließen. 
CHR$(34) ergibt ein Ausführungszei- 
chen. 

Unabhängig davon, was der Benutzer 
eingibt, es werden nur die Zeichen 
2-10 in der Zeile gelesen, sobald die 
horizontale Position des Cursors grö- 
ßer als 10 ist. 



3. Tip: 

Progra 
löschen. 



Programmteile per Programm 



Probieren Sie folgendes: 
10 GRAPHICS 
20 POSITION 2,4 

30 ? 80: ? 90: ? 100: ? "CONT" 

40 POSITION 2,0 

50 POKE 842,13 

60 STOP 

70 POKE 842,12 

80 REM DIESE ZEILEN 

90 REM WERDEN 
100 REM GELÖSCHT 
Durch POKE 842, 1 3 wird der Compu- 
ter veranlaßt, wild drauflos zu lesen 
und auszuführen was er liest, sobald 
er die Programmausführung beendet 
hat. 

Durch die Positionierung in Zeile 40 
steht der Cursor nach Ausdruck einer 
STOPPED AT LINE-Meldung auf der 
Zahl 80. 



Er liest sie, als ob der Benutzer sie 
eingegeben und RETURN gedrückt 
hätte. Führt den "Befehl" aus und 
löscht Zeile 80. 

So geht das weiter, bis er etwas liest, 
das ihn veranlaßt im Programm wei- 
terzumachen, also z. B. CONT 
(-CONTINUE), RUN, GOTO 70 oder 
ganz einfach POKE 842,12. 
Die Speicherstelle 842 wird im OPER- 
ATING SYSTEM SOURCE LISTING 
übrigens ICAX1 (AUXILLARY IN- 
FORMATION) genannt. 
Mit dieser Methode kann man natür- 
lich auch ganze Zeilen per Programm 
ins Programmm holen. 

4. Tip: 

Wenn man ein Programm mit 
LISTT'C:" bzw. LIST"D:(namer auf 
Cassette bzw. Disk abspeichert, 
dann wird es dorthin als Klartext 
geschrieben, d. h. man kann /. B. 
einen Programmtext von Cassette 
oder Disk laden und bearbeiten. 

Beispiel: 

Ein Programm wird mit LIST"D:TEST" 
auf Diskette geschrieben. Das folgende 
Programm liest die einzelnen Zeilen 
und druckt sie als Text aus. 
10 OPEN #1,4,0,"D:TEST": REM DA- 
TENKANAL 
20DIMA$(128) 

30TRAP 70: REM BEI ERROR- 136 
SPRUNG NACH 70 
40 INPUT #1, A$: REM ZEILE LE- 
SEN 

50 PRINT A$: REM UND AUSDRUK- 
KEN 

60 GOTO 40: REM NÄCHSTE ZEILE 
70 PRINT 

80 PRINT "ERROR-END OF FILE" 
90 END: REM DATENKANAL 
SCHLIESSEN 

Anstatt die Zeilen nur auszudrucken 
kann man sie natürlich auch bearbei- 
ten und in eine zweite Datei schreiben, 
um sie von dort mit dem Befehl ENTER 
u D:(name)" als neues Programm zu la- 
den. Syntax-Fehler werden dabei an- 
gezeigt. 

Beispiel: 

Dieses Programm liest die Zeilen eines 
mit LIST" D:TEST" abgespeicherten 
Programms und legt sie in der Datei 
"D:TEST.NEU" wieder ab. Zeilen, die 
nur aus einer REM-Anweisung beste- 
hen, werden jedoch nicht übertragen 
(siehe Zeile 80). 
10DIM A$ (128) 
20 OPEN #l,4,0 f "D:TEST Ji 
30 OPEN #2,8,0,"D:TEST.NEU" 
40TRAP 110 
50 INPUT #1,A$ 

60CHVAL (A$): REM Q=ZEILEN- 
NUMMER 

70 L=LEN(STR$(Q))+2: REM L=LÄN- 
GE DER ZEILENNUMMER +2 
80 IF A$(L,L+3KREM" THEN 50 
90 PRINT #2;A$ 
100 GOTO 50 
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110 PRINT "FERTIG!" 
120 END 

Das neue Programm kann nun mit EN- 
TER "DrTEST.NEU" geladen werden. 
ACHTUNG: in Zeile 80 muß hinter 



REM ein (!) Leerzeichen stehen, sonst 
würde z. B. die Zeile REMEM- 
BER=5:... gelöscht! Man kann auch 
ganz neue Zeilen (z. B. DATA-Zeilen) 
schreiben lassen. 



Tips&Tricks für den DRAGON-USER 



Obwohl das Informationsblatt für MC- 
USER von DRAGON schon viele Hin- 
weise auf ROM- Routinen und ZERO- 
PAGE-Adressen enthält, lassen sich 
darüber hinaus noch viele sinnvolle 
Routinen finden. 

So dürfte wohl den meisten DRA- 
GON-USER der Befehl: EXEC 
&H8C9C unbekannt sein. Diese 
ROM-Routine entfernt scheinbar die 
Zeilennummern aus dem Programm. 
Dadurch ist es möglich, Texte ohne 
REM-Zeichen in Zeilen aufzulisten 
und anschließend als zusammenhän- 
genden Text auf seinem Drucker aus- 
zugeben. 

Auch nach einem normalen LIST-Be- 
fehl erscheint das Programm ohne Zei- 
lennummern. Will der USER wieder 
Ordnung durch Nummern haben, 
braucht er lediglich „RUN" einzugeben 
und schon ist sein altes Programm 
wieder richtig hergestellt. 

Die DRAGON-USER, die eigene Pro- 
gramme schreiben und auch auf Cas- 
sette weitergeben wollen, machen sich 
oft Gedanken über einen entsprechen- 
den Programmschutz. Es sollte jedoch 
klar sein, daß es einen solchen Schutz 
für wirklich alle Fälle kaum gibt, denn 
die Tricks zum „Knacken" eines Pro- 
grammes sind schier unerschöpflich. 
Dennoch gibt es einige Tricks, die die 
„Knacker" schon zum Überlegen anre- 
gen. Dazu gehört u. a., daß das ge- 
schützte Programm nicht mehr gelistet 
werden kann. Um dies zu erreichen, 
muß immer über „CSAVEM" abge- 
speichert werden, um schon während 
dem Laden die entsprechenden Spei- 
cherstellen mit Anweisungen zu ver- 
sehen. 

Da jedes BASIC-Programm mit „CSA- 
VEM" abgespeichert werden kann, 
muß nur der Speicherbereich richtig 
angegeben werden. Dazu muß über die 
Speicherstellen 25, 26, 27 und 28 der 
jeweilige BASIC-Speicherbereich er- 
fragt werden. 

Ich habe eine ROUTINE entwickelt, 
mit deren Hilfe man seine Programme 
relativ einfach vor „Listen" schützen 
kann. 

Diese ROUTINE setzt sich aus mehre- 
ren Schutzbefehlen zusammen: 
Ausschalten der BREAK-Taste 
Ausschalten der RESET-Taste 
Ausschalten der Unterbrechung nach 
einem Fehler 

Eingabekontrolle unmittelbar nach 
dem Laden 



Geschaltet wird das MC-Programm 
über die Speicherstelle &H167. Diese 
wird durch Eingabe eines Zeichens 
vom ROM aus angesprungen und ent- 
hält normal ein RTS (&H39). 
Die beiden auf diese Speicherstelle fol- 
genden Bytes ergeben nach hexadezi- 
maler Zusammensetzung eine Sprung- 
adresse, wenn statt RTS in &H167 ein 
JMP-Befehl (&H7E) steht. 
Da diese Stelle unmittelbar nach dem 
Laden angesprungen wird, ist es mög- 
lich, durch ein entsprechendes MC- 
Programm sein BASIC-Programm 
schon vor einem „RUN "-Befehl, also 
während des Einladens vor „LIST" zu 
schützen. 

Ich habe die folgende Routine in die 
erste Grafikseite gesetzt. Für USER, 
die diesen Bereich für gleichzeitiges 
Einladen von Grafikteilen auf direkte 
Art benutzen müssen, muß die Routi- 
ne an einen anderen Bereich verscho- 
ben werden. Dann müssen auch die 
Sprunganweisungen entsprechend an- 
gepaßt werden. 

Hier ist das ASSEMBLERLISTING der 
Schutzroutine 
DISSABLE LIST 

1536 600 3402 PSHS A. 

1538 602 814C ' CMPA #4C 

1540 604 27FC BEQ $602 

1542 606 8150 CMPA #50 

1544 608 27F8 BEQ $602 

1546 60A8141 CMPA #41 

1 548 60C 27F4 BEQ $602 

1550 60E 8145 CMPA #45 

1552 610 27F0 BEQ $602 

1554 612 3502 PULS A. 

1556 614 39 RTS 

1557 615 12 NOP 

1558 616 8E0167 LDX #0167 
1561 619 86BD LDA #BD 
1563 61B A784 ' STA ,X 

1 565 6 1 D 7E8006 JMP $8006 

Um dieses Programm nutzen zu kön- 
nen, müssen zunächst die Speicher- 
stellen für die Eingabe eines Zeichens 
geändert werden. 
Die Befehle dazu lauten: 
POKE &H169, 0:POKE &H168, 
&H06:POKE &H167, &HBD 
Durch diese POKEs wird das Maschi- 
nenprogramm angesprungen und 
schaltet LIST-LIST-SAVE-EDIT- 

DEL-POKE-PEEK usw. aus. Nur die 
Eingabe „RUN" als Befehl ist noch zu- 
lässig. 

Nach Eingabe des Befehls „RUN" muß 
der Sprungbefehl zur MC-Routine un- 
bedingt wieder aufgehoben werden. 



Dazu ist der POKE &H167, &H39 er- 
forderlich. 

Weiterhin muß unmittelbar nach Pro- 
grammstart der Befehl „LIST" durch 
POKE &H120, 19 ausgeschaltet wer- 
den. 

Da es immer noch möglich ist, das Pro- 
gramm durch die BREAK-Taste oder 
die RESET-Taste zu stoppen, müssen 
auch diese Tasten ausgeschaltet wer- 
den. 

Zuerst wird die MC-Routine in den 
Zeilen 10 bis 40 eingegeben. Es ist 
ratsam, sich diesen Teil zunächst für 
spätere Fälle abzuspeichern. Nach 
„RUN" ist der MC im Speicher 
10 FORI = 0TO31: READP$: POKE 
&H0600+I, VAL ("&H J, +P$): NEXTI 
20 DATA 34, 02, 81, 4C, 27, FC, 81, 
50, 27, F8, 81,41, 27, F4, 81, 45, 27, F0, 
35, 02, 39, 12, 8E, Ol, 67, 86, 51, A7, 
84, 7E, 80, 06 

30 POKE&H169, &H0: POKE&H168, 
&H06 

40 POKE&H71, &H55: POKE&H72, 
&H06: POKE&H73, &H15 
50 NEW 

Jetzt kann das BASIC-Programm gela- 
den werden, das dann geschützt abge- 
speichert wird. Dazu müssen einige 
Programmergänzungen eingebaut 
werden 

10 POKE27, 31: POKE28, 221: PO- 
KE&H167, &HBD: POKE&H120, 19: 
CLS0 

20 POKE&H19B, &HE4: PO- 
KE&H19C, &HCB: POKE&H19D, 
&H4: POKE&H19E. &HED: PO- 
KE&H19F, &HE4: POKE&H19A, 
&HEC: POKE&H73, &H15: PO- 
KE&H72, &H0: POKE&H71, &H5530 
A=0 

40 I$=INKEY$: A=A+1 
50 IFI$="X"THEN80 
60 IFA<150THENI$="": GOTO- 
40ELSEPOKE&H167, &H39: 

GOTO 100 
70 GOTO40 

80 A=0: CLS: POKE&H167, &H39: 
PRINT§99, "PROGRAMM- 
SCHUTZ";: POKE&H167, &HBD: 
CSAVEM"SCHUTZ", &H167, 9000, 
&H167: POKE&H167, &H39 
90 a b Zeile 100 beginnt das BA- 
SIC-Programm 

100 CLS5 

110 PRINT§RND(480), "SCHUTZSI- 
MULATION";: SOUNDRND(255), 1 
120 CLSRND(9)-1: 

SOUNDRND(255), 1: GOTO110 
Die Zeilen lO'bis 100 müssen in dieser 
Reihenfolge in das zu schützende Pro- 
gramm eingebaut werden. Ab Zeile 
100 beginnt dann das normale BASIC- 
Programm. 

Der Schutz kann noch beliebig erwei- 
tert werden, wie z. B. durch ERROR- 
Routinen oder „RUN" nach RESET 
usw. 

Mit dieser kurzen Simulation dürfte 
vielen USERN der Einstieg in eigene 
Schutzentwicklungen erleichtert wer- 

den - (K.-H. Waldscheck) 
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Dieses Programm ist absichtlich nur teilwei- 
se in M.C.-Code geschrieben. Um eigene 
Vorstellungen des Spielbrettes oder 
Anfangspositionen zu verwirklichen, ist BA- 
SIC nun einmal besser geeignet. Außerdem 
läßt sich das M.C-Programm relativ einfach 
für andere Computer mit Z80 CPU umschrei- 
ben. 



Das BASIC-Programm erklärt sich 
durch die REM- Zeilen zum Teil selbst. 
Darum nur eine Beschreibung des 
M. C. -Programmes . 

Um vom BASIC-Programm die Spiel- 
felddaten ohne große Umrechnungen 
aus dem M.C-Programm abrufen zu 
können, ist ein geschlossener 100er- 
Block (16600-16700) Speicherzellen 
reserviert worden. Es werden für die 
Daten zwar nur 64 Speicherzellen be- 
nötigt, aber der Computer möchte ger- 
ne wissen, wo der Spielfeldrand be- 
ginnt. Diese Speicherzellen werden 
bei jedem Spielbeginn vom BASIC- 
Programm initialisiert und können bei 
der Eingabe des M.C. -Programmes 
übersprungen werden. In den Zeilen 
16515, 16516 steht die Position des 
Zuges, welcher a) der Spieler zu set- 
zen wünscht (wird von BASIC-Zeile 
502-517 gepokt) oder b) vom Compu- 
ter hinterlegt (um in Zeile 720-732 
seinen Zug bekannt zu geben). 

Ab 16520 beginnt das Hauptpro- 
gramm für den Spieler zug. Hier wird 
im Kreis um die gesetzte Position ab- 
gefragt, ob ein gegnerischer Stein ge- 
schlagen werden kann. Wenn dies der 
Fall ist, werden die gegnerischen Stei- 
ne umgedreht (dieser Programmteil 
wird auch vom Computer als erstes 
Unterprogramm benutzt): Danach 
werden im separat aufgerufenen M.C.- 
Programm USR 17495 die Steine ge- 
zählt. Hat sich an der Anzahl der Stei- 
ne nichts gändert muß der Zug falsch 
gewesen sein und der Computer mel- 
det dies. Durch betätigen von NX. darf 
man den Zug wiederholen. War der 
Zug gültig, wird in das Unterpro- 
gramm (ab Zeile 100) gesprungen und 
die Spielerfiguren neu gesetzt. 

Das Programm des Computers ist we- 
sentlich umfangreicher. Es beginnt bei 
Speicherzelle 17020. Im wesentlichen 
sind in diesem Programmteil die Prio- 
ritäten festgelegt (die für den Spielver- 
lauf wichtigsten Positionen werden 
zuerst abgefragt, in diesem Fall AI, 
H8 f Hl, A8). Hat der Computer einen 
freien Platz gefunden, springt er nach 
16520 und fragt die Positionen rings- 
um ab. Anschließend springt er in das 
Unterprogramm 16940 und zählt seine 
Steine. Hat sich der Zählerstand nicht 



geändert, springt er zurück und bear- 
beitet die nächste Priorität. Hat sich 
der Zählerstand jedoch geändert, 
springt er in einen Programmteil 
(16961), welcher auf den ersten Blick 
einen Programmfehler vermuten läßt. 
Hier wird 2mal ge„popt", obwohl vor- 
her nicht ge„pusht" worden ist. Nor- 
malerweise führt dies zum Absturz 
des Rechners. Hier hebt er jedoch 2 
CALL Rücksprungadressen ab, um die 
Rücksprungadresse nach BASIC zu 
finden. 

Wie schon beschrieben, ist die Strate- 
gie des Computers in den Speicherzel- 
len 17030-17494 festgelegt. Da der 
Computer nicht nach Quantität son- 
dern nach Qualität seine Spielent- 
scheidung trifft, aber dabei nicht prüft, 
ob an anderer Stelle ein gleichwertiger 
Zug mehr Steine schlagen kann, wäre 
es vorteilhaft,, die Strategie von Zeit zu 
Zeit zu ändern. 

Nach der Code-Nr. 33 (ld hl,NN) folgt 
eine Adresse des Spielfeldes. Werden 
diese getauscht, fällt der Computer 

auch andere Spielentscheidungen. 

Obwohl der Computer keinen versier- 
ten Spieler schlagen kann, ist seine 
Strategie gar nicht so ohne und ver- 
setzt den ungeübten Spieler manchmal 
ganz schön ins Schwitzen. 
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Warum ein Computer-Buch in der 
Reihe Kompaktwissen? 
Weil nach unserer Erfahrung die Le- 
ser der Reihe Kompaktwissen einem 
ganz bestimmten Personenkreis ange- 
hören - nämlich dem mittleren und 
gehobenen Management ebenso wie 
dem des „Selbständigen" - für den 
Grundwissen über Heimcomputer zur 
Selbstverständlichkeit geworden ist. 
Eduard Altmann, Jahrgang 1951, ist 
seit 1974 als Redakteur und Ressort- 
leiter für den Bereich Technik beim 
Verbrauchermagazin £)M tätig, 1981 
begann er, sich schwerpunktmäßig mit 
Computer-Themen, dem Erlernen von 
Programmiersprachen, dem Textver- 
arbeitungstraining und dem Entwik- 
keln von Datenbank-Systemen aus- 
einanderzusetze n. 

Neben seiner journalistischen Tätig- 
keit ist Eduard Altmann Volkshoch- 
schulreferent für Heimcomputer- 
Technik und -Entwicklung. 

HEYNE KOMPAKTWISSEN 
Eduard Altmann 

HEIMCOMPUTER GRUNDWISSEN 
Heyne-Buch Nr. 22/145, DM .7,80 
Originalausgabe 
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REM 

REM 

REM 

REM 

REM 

REM 

F0R 

SCROLL 

FR INT "8PEICHERTELLE 

SCROLL 

INPUT V 

SCROLL 

RR INT X,Y 

P0KE X..Y. 

NEXT X 



MIN. 1038 ZEICHEN EING. 
DANACH MIT RUN STARTEN UND 
MASCHINENCODE EINGEBEN 
NACH DER EINGABE ALLER ZAHLEN 
DIE ZEILEN Z BIS 15 LQE8CHEN. 
NUN HAUPTPROGRflMM EINGEBEN . 
X* 163 14 T0 17533 
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®=SPIELERSTEIN C=COMPUTERSTEIN 


EINGRBE BIS 
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EINGABE DER 


2UEGE = 


rSUCHST 


. , ZAHL 













ZU ISCHEN DEM ZU SETZENDEN STEIN 
UND DEM NRECMSTEN EIGENEN STEIN 
MUSS MINDESTENS EIN COMPUTERS 
STEIN LIEßEN 

BEI EINGRBE EINES FALSCHEN ZUGES 
N.L.DRUECKEN 

SOLL. DER COMPUTER ANFANGEN,"©" 

EINGEBEN 

(RUCH WENN MRN SELBST NICHT HEHR 
Z ZEHEN KANN , " S " E INSESENJ 



R L L E S 
N.L. DRUECKEN 



KLAR 



o 




BASIC LISTING 

1BREM (MIN. 103© ZEICHEN) 

2 GOSUB 1000 

3 GOSUB 2000 
5 RAND USA 17495 
9 GOSUB 100 

10 GÖTO_500 

99 REM I 

100 LET N=16611 

105 FOR X=3 TO 17 STEP 2 

110 FOR Y = 18 TO 4 STEP -2 

115 PRJNT AT Y,X;"*" 

120 PRINT AT Y^X;CHR* PEEK N 

125 LET N«N+1 

13© NEXT Y 

135 LET NsN+2 

140 NEXT X 

150 PRINT AT 4,A;K*iAT 4,A;PEEK 
L;AT i3,A|K*;AT 13,A;PEEK K 

16© LET MC^PEEK L 

151 LET 5C»PEEK K 

162 IF MC+SC=64 THEN GOTO 900 
165 RETU RN 

500 PRINT AT 20, A.; 5$ 

501 INPUT Z$ 

502 IF Z$="0" THEN GOTO 700 

510 IF LEN Z*<>2 THEN GOTO 508 

511 IF CODE Z$.C1) <38 OR CODE Z* 
(2) >45 THEN GOTO 500 

515 LET P«166B0+t (CODE Z*Cl)-37 
)*10)+(CODE Z* (2) -2©> 

516 POKE 16516, INT (P/SS6) 

517 POKE 16515» CP-XNT (P/256) *2 
56) 

530 IF PEEK PoCDDE " " THEN GO 
TO 600 

540 RAND USR 16520 

541 RAND USR 17495 
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542 IF SC=PEEK K THEN GOTO 80© 

550 GOSUB 100 

550 GOTO 700 

69© REM 



700 PRINT RT 2©,R;C* 
70£ RRND USR 3L?©20 
704 RRND USR 17495 

710 IF MC=PEEK L THEN GOTO 900 
715 LET B=CP£EK 16515+256*PEEK 
16516) -16600 
72© LET U*«5TR* B 

724 FOR N»l TO 10 

725 PRINTRT6^" ICH SETZE 

; RT fi PI I "1 IMLgff 1 W-TT • " 8,25; 

";RT 8*25TcW*TTüfiL U*<l>+37> 
) JU$(S) 

730 FOR M=l TO 5 

731 NEXT M 

732 NEXT N 
74-0 GOSUB 100 
745 LET Z=Z + 1 

750 PRXNT RT 16,R;Z 
760 GOT O _5©0 

799 REM ÖHK0L - 

300 PRIN? ÖT 50 ^ fti " FALSCH " 



301 PRXNT RT 28, R;"] _ 

80S IF INKEY*-«"" THEN GOTO 600 

IS1 IF HC^ B OR MC<5C TH EN PRINT 

RT 13 20 i "H W" 

901 IF M O SC OR 5C=© T HEN PRINT 

RT 6,20; "IH^ "' 

~ ".0 PRINT RT...©j.©J...ni 

920 INPlT 

930 RUN 

999 REM . 

1000 FRST 

1001 LET L= 16935 

1002 LET K= 16937 

1003 FOR N=1660© TO 16699 

1004 POKE N,0 
1006 NEXT N 

1015 FOR N=16600 TO 166Q9 
1012 POKE N,12S 

1014 POKE N +90,128 

1016 NEXT N 

1020 FOR N=1660© TO 16690 STEP 1 



1022 POKE N,128 

1024 POKE N+9,12S 

1026 NEXT M 

1032 POKE K,2 

1033 POKE L,2 

1034 POKE 16519,151 

1035 POKE 16524,40 

1036 LET 6=16645 
1044 5LQU 

104-5 RETURN 

1049 REM 

1050 POKE 6,151 

1051 POKE 6+9,151 

1052 POKE 6-1,4© 

1053 POKE 64-10,40 
1055 RETURN 
106© GOSUB 105© 

1061 POKE 6-9,4© 

1062 POKE 5-12,151 
10Ö3 POKE 5+21,151 

1064 POKE 5+16*40 

1065 RETURN 
107© GOSUB 105© 

1071 POKE 16623,151 

1072 POKE 16632,4© 

1073 POKE 16662,4© 
1©74 POKE 16673,151 

1075 POKE 16626*4© 

1076 POKE 16637,151 

1077 POKE 16667,151 

1078 POKE 16676,4© 

1079 RETURN 
108© GOSUB 1050 



POKE 16611,151 

POKE 166 18 ..4© 

POKE 16681,40 

POKE 16688,151 

RET U !%— *— 

LET C*="COMPUTER" 
LET S*="SPIELER " 

lIt K*i** ST EINE" 
PRINT RT 3,8; "I 




1081 
1082 
1083 
1084 
1090 
1999 

200© 

2001 
2002 
2005 
2005 



.1007 PRINT 
SB" 

2008 PRINT 

2009 print "^■■■MHHMH^H 

2©13 LET Ö*=INKEY* _, ä -ä „ 

2014 IF Q*="l" THEN GOSUB 1050 

Uli IF ©*="2" THEN GOSUB 1050 

2016 IF ©I="3" THEN GOSUB 1©7© 

2017 IF öi="4" THEN GOSUB 1©8© 

2018 IF 0*="" THEN GOTO 2013 

2019 LET T=157 
2 QS 4 P^f^ J-ii fi J-i A ° 

2© ssjpSnt^SLJUÄ 

2030 PRINT 

5035 PR fNT RT 20,0; 

£040 PRINT -J |— ■ I 

aS^^ToR^fi^S TO 18 STEP 2 
2050 PRINT RT fl,©j*J^ 

£055 PRINT 

206© PRINT 

■ 

2065 NEXT R 

S070 FOR flaie TO 4 STEP -2 

2075 PRINT RT P,1;CHR* T^fiT fi , 19 

;CHR* T 

208© l_ET T=T+1 

2085 NEXT R 

2086 LET R=22 

2087 PRINT RT 2,A;C$ 

2089 PRINT RT il,ß;S* _„_. 

2091 PRINT RT 16,R;Z;" .ZUG" 

2092 PRINT RT 1S,R; "ES ZIEHT" 

2093 PRINT RT 20,R;S* 

2094 PRINT RT 17,21;" ■ 





2095 PRINT RT 10, 21; ^mmmm^^^ "| 

2096 PRINT RT 15 ..21; «^—^mmm—mmf 

2099 RETURN =i 

3000 SRUE "REUERSg" 

3005 PRINT "B5-SPIEL.ERSTEIN C=COH 

PUTERSTEIN" 

3015 PRINT ,, "EINGABE DER ZUEGE^ 
BUCHST« ,ZftHL" 

3016 PRINT >, "ZWISCHEN DEM ZU SE 
TZENDEN STEIN UND DEM NRECHSTEN 
EIGENEN STEIN MUSS MINDESTENS EI 
N COMPUTER* STEIN LIEGEN" 
3020 PRINT ,,"BEI EINGABE EINES 
FRLSCHEN ZUGESN . L . DRUECKEN " 
3025 PRINT , ,"SOLL DER COMPUTER 
RNFRNGEN,""©"" EINGEBEN" 

3030 PRINT , , " «RUCH UENN MRN 5EL 
BST NICHT MEHRZIEHEN KftNN,""0"" 
EINGEBEN) " n « » , ■* « 

3©35 PRINT ,,,," R L L E S 

K L R R * 3 '" 

304© PRINT *j"N.L. DRUECKEN" 

305© INPUT N$ 
3055 CLS 
3060 RUN 
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Looks Like an IBM" 
Works Like an Apple 



To a iand where fruit 

supreme, comes the awesome power of the 
Wildcat to chailenge their supremacy. 

Wiidcat is a sieek styled mobile Computer 
designed for your vehscie, boat or aircraft. It 
looks like an IBM PC™ and is fully Software 
compatible with the Apple II™ product line at a 
(ist price that would put a smile on the face of the 
most frugal Computer buyer. 

But price isn't everything. Ali those features that 

would cost you hundreds 

of dollars extra from our 

competitors. come 

Standard with Wildcat. 

Let's compare some 

of these features; 




Computer plus one disk drive ..-. 

Warning: This equip'ment' is ■ exempt trom compliance wilh FCC lest mg 

requirements pursuanl to 47 CFR 1fi ?01 (c)'U) ■■"" 

Operation of this eqoipmeni in a residenlial'area rnay cause mterference. 





Apple He 


Wiidcat 


Detachable keyboard 


No 


STD 


Füll numeric key päd 


Option 


STD 


Füll functions keys 


No 


41 


Built in disk Controller 


No 


STD 


Parallel printer port 


No 


STD 


RS 232 serial port 


No 


STD 


Game port 


1 


2 


RGB Video out 


Option 


STD 


Composite video 


STD 


STD 


BF Video for TV 


Option 


STD 


CP/M 


Option 


STD 


Hi Res graphics {6 color} 


STD 


STD 


Low Res graphics {16 color) 


STD 


STD 


64KB memory 


STD 


STD 


Haif high disk drives 


No 


STD 


Converters for vehicles. 






boats. and aircraft 


No 


Option 


Aluminum carrying case 


No 


Option 


List price 


$1940* 


$1099.00- 



For more Information on the all new Wildcat, see 
your local Computer dealer or call or write: 



an 



COMPUTER AND 
PERIPHERAL PRODUCTS 

1530 S. Sinclair 
Anaheim. CA 92806 

(714)978-9820 



|BM is Ihn regislercii irariemaik <jl Intern,* (ion.il Busi.m 
Apple rs tr«p 'egisteif 1 :! kacleim.irk of Aopln O.Kiipuler. 
Apple II is the iractemarK ol Apple Compsit«? ine 



CIRCLE 181 ON READER SERVICE CARD 
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BASIC-Programm zur Auswertung 
von Funktionen und Folgen 

Dieses in BASIC geschriebene Programm für den Dragon 32 ermöglicht es seinem Anwender jede nur 
denkbare Folge oder Funktion sowohl graphisch (mit Hilfe eines Koordinatenkreuzes) als auch rechnerisch 
(mit Hilie von ausgegebenen Zahlenkolonnen) darzustellen und auszuwerten. 



Hier noch einige Tips und Anmerkun- 
gen zu dem sich weitgehendst selbst- 
erklärenden Programm: 
Nach dem starten des Programme s 
werden Sie zuerst daran erinnert eine 
der von Ihnen gewünschten Funktio- 
nen dem Programm zur Grundlage zu 
setzen, indem Sie es anhalten, und 
durch EDIT 590 diese dort einsetzen. 



Dieses brauchen Sie jedoch zunächst 
nicht beachten da im Programm die 
Beispielfunktion Y= SINUS X eingege- 
ben ist. Um eine richtige Eingabe kon- 
trollieren zu können, fahren Sie also 
direkt fort. 

Sie können nun zwischen A GRAPHI- 
SCHER und B RECHNERISCHER 
Auswertung wählen! 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 
150 
160 

170 
180 
190 
2Ö0 
210 
220 



CLS0 
PRINT 

rem mmm*m###*###m## 

BASIC PROGRAMM ZUR 
RECHNERISCHEN UND 
GRAPHISCHEN AUSWERTUNG 
VON BELIBIGEN FUNKTIONEN 

UND FOLGEN 
-RAGON 32 AUSFUEHRUNG- 



REM 
REM 
REM 
REM 

REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



-COPYRIGHT 
MICHAEL 



1984 BY' 
BRUST 



■MOERSERSTRflSSE 180- 



In beiden Fällen werden Sie auf die 
Möglichkeit hingewiesen, am Ende 
des Programmablaufes durch drücken 
der f Taste neue, vielleicht bessere 
Werte vorauszusetzen um ein optima- 
leres Ergebnis zu erlangen. 
Zu diesen Werten gehören: 
{bei A und B) die Festlegung des Zah- 
lenbereiches der für x eingesetzt wer- 
den soll: Dieses geschieht durch Ein- 
gabe der ERSTEN UND DER LETZ- 
TEN Zahl dieses Bereiches sowie die 
Bestimmung des Abstandes den die 
Werte in diesem Bereich zueinander 
haben sollen, 
z. B.: erster Wert = -2 
letzter Wert = +2 

Abstand - 0.5 

So lauten die Zahlen, die nacheinan- 
der für x eingesetzt werden: 
-2/-1.5/-1/-0.5/0/+0.5/+1/+1.5/+2 
(Nur bei A): Die Festlegung der Ein- 
heit auf der x- Achse sowie auf der y- 
Achse: Dieses geschieht durch die 
Festlegung des Wertes den die Teil- 
striche auf dem Koordinatenkreuz ha- 
weiter Seite 17 



-4106 DUISBURG 17 - 

PRI NT "**B AS IC-PROGRAMM ZUR AUSWERTUNG*****VQN folfier» UND funktiüineih*** 
FÖRI*1T02 



NEKTI 

CLS0 

PRINT SPRINT 

PR I NT " tttttt i st*d i e#zuL*behamde X nde****#*****#**#*#f unk t i oti*#*##*##**#**#r»och 
#vücht*#iri9e9eb^^ 
230 PRINT"ACHTUNG! DfiNfiCH IST DAS PROGRAMM ERNEUT ZU STARTEN I 

FÖRI-1T03 

PLHY " T 1 5CDEFGG A A AAG A RA AGFFFFEEDDDDC " 

NEXT 1 

CLS0 

PLAY H T255ACDF" 

PRINT 

PRI NT "WAS WUENSCHEN SIE M 

PRINT" A) GRAPHISCHE " 

PRINT" B> RECHNERISCHE " 

PRI NT "DARSTELLUNG DER FUNKTION?" 

PRINT« INPUT" A ODER B ?>»"jWA* 

PM0DE3j 1 : SCREEN1 , i ■ PCLS 



24Ö 
250 
?66 
270 
280 
290 
300 
318 
328 

338 
340 
350 
360 

370 



CLS0 

PLAY " T255CCDDEEFFEEDDCCC " 
380 PRI NT "NACH DEM ENDE KANN DAS 
GESTARTET WERDEN UM EVTL. ANDERE 
390 IFWfl»«"A"THEN410 
400 PRINT« INPUT H WIE SOLL DIE 

A) SCHNELL 
EIBEN "iM* 

410 PRINT "BITTE GEBEN SIE DIE JEWEILS 
420 PRINT 



PROGRAMM DURCH DRUECKEN OER 

WERTE AUSZUPROBIEREN! 



TASTE 



WIEDER 



AUSGABE 
B) 



DER WERTE 
LANGSAM 



ERFOLGEN? 



C) ZUM MITSCHR 



GEWUENSCHTEN WERTE EIN! 
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43@ 

449 

450 

460 

470 

480 

490 

U0, 

500 

510 

550 

530 



FRINT'DIE FUER X EINZUSETZENDEM ZAHLEN' 

INPUT"DER ERSTE EINZUSETZENDE WERT 

INPUT "DER LETZTE EINZUSETZENDE WER' 

S0UND6.. 1 

CLS0 

PRINT 

INPUT"OER RBSTflND DER FUER X EINZU- 

5) SEI' ";P 

SOUHD60,! 



CNORMftL*-10>SEI'";R 
C NORMAL' +10 >SEI' m jD 



SETZENDEN ZAHLEN ZUEINANDER 



( NORMA 



DER X RCHSE 

' ACHSE 



(NORMALE ) SEI» 

< NORMAL '1) SEI'" 



K 



BEISPIELFUNKTION Y-SIN<X) 
Z.B. Y«X+3 Q. 



DURCH DIE GEUU 
Y»Ci^9#X> A X 



IN710j720;730j740 WIRD DIE LRGE DE 



rFWR*a"B M THEN350 

PRINT 

INPUT "DIE EINHEIT RUF 

549 INPUT"EINHEIT AUF DER 

550 SOUND 190, 3 
560 FOR X*R TO D STEP P 
570 REM IN 590 Y«F<X).IST DIE 
ENSCHTE ZU . ERSETZEN ! ! 
580 REM**************#*#*##**# 

590 V~SINOO 

600 REM*******:************"**'*:*: 

619 IF WR*e"R"THEN630 

620 IFWH»b"B i, THEN840ELSE370 
630 R=126+<X*a:i/J)*12>> 
640 B-93-CY#<<i/K)#8>> 
650 PLAY"T255A" 
660 REM 

670 REM***KaORDINRTENSYSTEM =*** 
680 PMODE 4,1 sSCREEN 1,1 

690 REM DURCH RENDERUNG DER KOORDINATE 126,95 
S SYSTEMMITTELPUNKTES C0-PUNKT) VERSCHOBEN 
700 REM 

710 DRRW" BN 126,95 ; 84 ; U8L2R2U8L2R2U8L2R2U8L2R2UÖL2R2U8L3R2U8L2R2U8L2R2U8L2R 

2U8L2R2U8L2R2U8L2R2U8L2R2U8L2R£U8L2R2U8L2R2U8L2R2U8L2R2UeL2R2U8L2R2U8L2R2UBL2R2U 

8L2R2U8L2R2U8L2R2U8L2R2U8L2R4" 

720 DRAN" Bf1 126,95 ;D8L2R2D8L2R2D8L2R2D8L2R2DSL2R2D8L2R2DeL2R2DSL2R2D8L2R2DflL2R 

2D8L2R2D8L2R2D8L2R2D8L2R2D8L2R2D8L2R2D8L2R2D8L2R208L2R2D8L2R2D8L2R2D8L2R2D8L2R2D 

8L2R2D8L2R2D8L2R2D8L2R4" 

730 DRRW " BM 1 26 , 95 ; L 1 2D2U2L 1 2D2U2L 1 2D2U2L 1 2D2U2L 1 2D2U2L 1 2D2U2L 1 2D2U2L 1 2D2U2L 1 2 
D2U2L 1 2D 2U2L 1 2D2U2L 1 2D2U2L 1 2D2U2L 1 2D2U2L 1 2D 2U2L 1 2D2U2L 1 2D2U2L 1 2D2U2L 1 2D2U2L 1 2D2U 
2L 1 2D2U2L 1 2D2U2L 1 2D2U2L 1 2D2U2L 1 2D2U2L 1 2D2U2L 1 2D2U2L 1 2D2U2 " 

740 DRAN" BM 126,95 jR12D2U2Ri2D2U2R12D2U2Ri2D2U2R12D2U2R12D2U2R1202U2R12D2U2R12 
D2U2R 1 2D2U2R 1 2D2U2R 1 22U2R 1 2D2U2R 1 2D2U2R 1 2D2U2R 1 2D2U2R 1 2D2U2R 1 2D2U2R 1 2D2U2R 1 2D2U2 
R12D2U2R12D2U2RI2D2U2" , „ n . . + , . .,. 

ben sollen. Dieser ist normal 1 (die 
Teilstriche erhalten den Wert 1/2/3/4 
usw.). Will man aber besondere Kur- 
ven darstellen 

(z. B. besonders enge) so empfiehlt es 
sich den Wert des Teilstrichabstandes 
zu verändern. Z. B. eine Verkleine- 
rung auf 0.2 (Teilstriche 0.2/0.4/0.6 
usw.). Geht eine Kurve zu sehr aus 
dem dargestellten Bereich heraus, so 
sollte man den Wert auf etwa 10 ver- 
größern (Teilstriche 10/20/30 usw.). 
Sie können selbstverständlich auch 
unterschiedliche Einheiten für die x- 
und y- Achse wählen! Je nach den An- 
forderungen die die Funktion stellt, 
sollte der Zahlenbereich und der Ab- 
stand entsprechend verändert wer- 
den. Setzt man zu extreme Werte ein, 
so kann es zu einem FC bzw. SN ER- 
ROR kommen. Achten Sie auch dar- 
auf, keine Division durch Null einzu- 
geben. 



77Ö 
788 
790 
800 

810 
815 

829 
839 

840 



86Ö 
870 

916 



IF fi< 0THEK NEXT X 

IF BM88THEM NEXT X 

IF B<8 THEN NEKT X 

LIHE<B,B>~<R,B>,PSET 

HEXT X 

fi'*«INKEY* 

IFfl*=" A "THENCLS0 

I F ft *■ H ''- " THEM300ELSE8 1 

REM##*#*REeHNERISCH#mm# 

PRINT"X» ,l jX J "¥* ,, iV 

I FM* = " B " THENFORS» 1 TO40 

I FM» = " C " THENFORS* 1 TO800 

I FM»= " B " ÜRM** " C " THEN HEX TS 

NEXT X 

RSsINKEY* 

IFfl'*-" A,, THEHCLS0 

IFfl*~' ,rt,, THEN270ELSES90 - 

REM ende 
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TKe Big tuest 




Das hier abgedruckte Programm ist auf allen Atari-Computern lauffähig 

Sie übernehmen die Rolle eines sehr mutigen 
Abenteurers, der es sich in den Kopf gesetzt 
hat, das Schloß des Grafen Frank von Stein zu 
plündern. 



Doch damit ist Herr von Stein gar 
nicht einverstanden und hetzt Ihnen 
allerlei Monster und Gewürm auf den 
Hals. Außerdem sind die Räume des 
Schlosses mit einer Schließvorrich- 
tung versehen, welche die Türen auto- 
matisch schließt, sobald jemand den 
Raum betritt. Diese Türen können Sie 
nur wieder öffnen, wenn Sie sich den 
Schlüssel holen, der irgendwo im 
Raum herumliegt. Und noch etwas: 
Wenn Sie zulange in dem Raum blei- 
ben, kann Herr von Stein Ihre genaue 
Position ausmachen und den Raum 
einfach mit Wasser füllen. Also Beei- 
lung!! Sonst setzt's was!! Sie steuern 
den kleinen" (noch) grinsenden Mann 
mit dem Joystick in alle acht Richtun- 
gen und müssen nun versuchen, die 
Perle und den Schlüssel zu klauen 
(erst die Perle, dann den Schlüssel!!), 
um sich dann so schnell wie möglich 
zu verdünnisieren. Die Wände sind 
übrigens elektrisch geladen. (Kicher). 
Wenn Sie von einem Monster bedroht 
werden, können Sie sich dessen er- 



wehren, indem Sie schnell den Kopf 
(auch Trigger genannt) drücken, um 
das Monster mit einem lauten Knall zu 
„zappen". Doch Achtung: Das funktio- 
niert nur nach rechts!! Da das „Zap- 



■=* *Q» »O* #■"*■ S 

■__ zmz «up ie: is» 



pen" sehr laut ist, kann Herr von Stein 
Sie jetzt natürlich viel leichter hö- 
ren... Es gibt verschiedene Monster 
mit verschiedenen Eigenschaften. Das 
eine sieht aus wie ein Geist und hat 
Angst vor Wänden, das andere sieht 
aus wie eine Spinne und schwebt 
durch die Wand ... 

Wenn Sie einen Raum heil verlassen 
haben, werden Sie sogleich in den 
nächsten befördert (der natürlich 
schwieriger ist). Wieviele Räume es 
gibt??? Das müssen Sie selbst heraus- 
finden ... 
Viel Spaß!! 




1 REM ****************** 

2 REM * THE BIG QUEST ! * 

3 REM * BY KEMAL EZCAN * 

4 REM * COPYRIGHT 1984 * 

5 REM ****************** 

1 PAGE=PEEK i 1 06 ) ~8 : CHS=PAGE*256 : POKE 55? , : POKE 77 , 1 28 s REBTORE 28000 

12 FOR 1=128 TO 471: POKE CHS+X , PEEK '57344+1 >: NEXT I 

14 READ C:IF CO-1 THEN FOR 1=0 TD 7s READ As POKE CHS+C*B+I , As NEXT I : GOTO 14 

16 POKE 559, 34s POKE 77,0: GOTO 6000 

50 REM START DER SUCHE 

51 SOUND 0,0,0,0 

60 P=0 : M=*3 s R00M= 1 s MAXRDOM« 1 Ü 

70 GRAPHICS 17: POKE 756, PAGE: POKE 708, 15: POKE 709,24 

80 ? #6 ; " ROOM : 1 T I ME : 000 " : ? #6 -, " L I VES : 3 SCDRE : O " 

100 REM NEUER RAUM/ LEBEN VERLOREN 

110 GOSUB 1000 

120 TIME=200:MCTR=1:RAUSFLG=0:H=32 

130 POSITION 5,0:? #6; ROOM 

150 REM MAIN LOOP 

160 TIME-TIME-Ia POSITION 13,0:? #6;TIME?" ":IF TIME-0 THEN 4500 

1 70 ST=ST I CK ( ) s XR=0 : YR-0 

180 XR=XR-(ST>S AND ST< 12) : XR-XR+ (ST>4 AND 5T<3> : YR=YR~ £ST=10 OR ST*=6 OR ST=i4>: 

YR-YR+(ST=9 OR ST=^5 OR ST=13) 

190 IF XR-0 AND YR-0 THEN 250 

195 IF X+XR>19 OR X+XR<0 OR Y+YR<2 OR Y+YR>23 THEN 7000 

200 LOCATE X+XR, Y+YR» Z: IF 2=168 OR Z-MCHR THEN 5000 

210 IF Z=32 THEN SOUND 0, 100, 3, 10: COLOR 32:PL0T X , Y: X=X+XRs Y=Y+YR: CQLOR 33:PL0T 

X,Y: SOUND 0,0,0,0 

220 IF 2=41 THEN GOSUB 1200 
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230 IF RAUSFLS-i AND Z-42 THEN GOSUB 1300 

250 REH ENDE DER BEWEGUNG 

260 IF MFLG THEN MCTR-MCTR+1 : IF MCTR>MSFD THEN MCTR=MCTR~MSPD: GOSUB 1400 

270 IF STRI5(0)==0 THEN GOSUB 1500 

990 GOTO 150: REN END OF MAIN LDOP 

1000 REN SCREEN AUFBAU 

1010 RESTORE 9900+R00MS1G0 

1 020 READ X , Y , MX , MY, MCHR , WFLG , MSPD , MFLG , PX , PY , SX , SY , TX , TY , SE2 , SE3 

1030 FOR 1-2 TG 23: COLOR 142: PLOT 0,1: DRAWTO 19, I s NEXT I : FOKE 710, 3E2: POKE 711,3 

E3 

1 040 READ X i , Y 1 , X 2 , Y2 : I F X i =- 1 THEN 1 060 

1050 COLOR 32s FOR I=Y1 TO Y2sPL0T X 1 , I : DRAWTO X2,I:NEXT I : GOTO 1040 

1060 READ Xl,Yl,CsIF Xi=~i THEN 1030 

1065 COLOR 168s IF 0=2 THEN PLOT X1,Y1:G0T0 1060 

1070 DRAWTO Xl,YlsGOTO 1060 

1080 COLOR 33: PLOT X,Y:IF MFLG THEN COLOR MCHR: PLOT MX,MY 

1090 COLOR 41: PLOT PX,PY: COLOR 42s PLOT SX,SY 

1100 FOR W=l TO 50: NEXT W 

1110 COLOR 171: PLOT T X , TY : FOR 1 = 15 TO O STEP -0 . 2 : SOUND , 60 , 4 , I s NEXT I 

1130 RETURN 

1200 REM PERLE GENOMMEN 

1210 P-P+50 : POS I T I ON 14,1:? #6 ; P : COLOR 32 : PLOT X + X R , Y+ YR 

1220 FOR 1=15 TO O STEP -0.6: SOUND 0, 1/3+23, 12, I s NEXT I 

1230 RAUSFLG=1 : RETURN 

1300 REM SCHLUE33EL GENOMMEN 

1 3 1 COLOR 32 : PLOT X + X R , Y+ YR : P=P+20 : POS I T I ON 14,1s? #6 ; P 

1320 FOR 1=15 TO O STEP -0.4: SOUND 0, 152, 12, I : NEXT I s FOR W-l TO 20: NEXT W 

1 330 FOR I =30 TO 10 STEP -0 . 5 : SOUND 0,1,12,1 : SOUND 1,1,4,10: SOUND 2,1,2,10: NE X T 

I : SOUND , , , : SOUN D 1,0,0,0 
1340 SOUND 2, 0,0,0: COLOR 32: PLOT TX, TY: RETURN 

1400 REM MONSTER MOVE 

1410 XR=0:YR=0 

1420 X R = X R - < X < M X > : X R= X R+ i X >M X ) : Y R ~ Y R - < Y < M Y ) : Y R= YR+ ( Y >M Y ) 

1430 LOCATE MX+XR, MY+YR, Z 

1440 IF 2=32 OR 2=WFLG THEN COLOR HsPLOT MX , MYs MX=MX+XR: MY=MY+YR: COLOR MCHR: PLOT 

MX, MY:H=Z: RETURN 
1450 IF 2=33 THEN 5000 
1460 RETURN 
1500 REM SHOOT 

1510 TI ME-TIME» 10 s IF TIME<0 THEN TIME=0 
1520 POSITION 13,0:? #6:TIME:IF TIME-0 THEN 4500 
1530. LOCATE X+1,Y,Z:IF Z<>32 THEN RETURN 
1540 COLOR 45s PLOT X+1,Y 

1550 FOR 1=0 TO 150 STEP iö: SOUND 0, l , 8, 1S-I /10s NEXT I 
1560 LOCATE X+2, Y, Z: COLOR 32: PLOT X+1,Y:IF ZOMCHR THEN RETURN 
1570 FOR 1=15 TO STEP -IsSETCQLOR 
=P+25:P0SITI0N 14,1:? #6:P 
1580 MFLG-O: COLOR HsPLOT MX „MYs POKE 

4500 REM KAPUTT DURCH ZEIT 

4510 POP 

4520 FOR 1=0 TO 15 STEP 0. 

4530 • IF MFLG THEN COLOR 32: PLOT MX,MY 

4540 SETCOLOR 1,7, 2: COLOR S 



1 , RND < O ) # 1 6 , I : SOUND , RND ( O ) #20 , 8 , I : NEXT I : P 

709, 24: RETURN 



SOUND 0, 1/2, S, l! NEXT I 



4550 FOR 1=23 TO 

20: NEXT WsNEXT I 

4560 FOR W=l TO 100s MEXT 

4570 FOR 1=2 TO 23: SOUND 
4580 GOTO 5030 

5000 REM MANN VERLOREN 

5005 POP sPOP sPOP 

5010 FOR 1=15 TO STEP -0, 



STEP - 1 : SOUND O , 250- 1*10,8,15: PLOT 



I : DRÖWTO 19,1: FOR W= 1 TO 



W 

0, 200, 3, 23-1 : COLOR 



: : PLOT O , I : DRAWTO 19,1: NEXT I 



JOUND 



, 4 , I : A= A * 1 s SOUND , 5 , 4 , I : NE X T I : SOUND , , 
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7 060 

7A7A 



o , 

5020 C0LOR 32: PLOT X,Y 

5030 M=M- 1 s POS I T I ON 6,1g? #6 ? M 

5040 IF M>0 THEN 100 

5050 FOR LN150 TO 200 STEP 8: FOR I=U TD U-iOO STEP -10: SOUND 0, I , 10, 10- CU-I50) /5 

sNEXT I:FQR W«l TO 10: NEXT WrNEXT U 

6000 GRAPH I CS : POKE 752 , 1 : P'OKE 82 , s POKE 7 12,52: POKE 7 1 ,116 

60 1 ? "DEINE PUNKTE : " ; P s ? s ? 

6020 7 " THE BIG Q U E 3 T !":?:?" EIN SPIEL K>OH KEMAL EZC 

ßf.J i " S 7 ; 7 ; 7 

6030 ? " DRUECKE START UM ZU BEGINNEN" 2? s? s ? :? 

6040 7 "DIE AUFGABE BESTEHT DARIN, IN DEN VIELEN" 

6050 7 "RAEUMEN DES GEHEIMNISMOLLEN SCHLOSSES" 

6060 7 "DIE VERSTECKTEN PERLEN ZU FINDEN UND" 

6070 7 "DANN HEIL ZU ENTKOMMEN." 

60 8 L = 1 2 s T- 1 : R E S T DR E- 6 2 

6090 IF PEEK<53279)-6 THEN GOTO 50 

6095 READ Ts IF T=-l THEN RESTORE 6000s READ T:L«L-<L>0> 

6100 SOUND 0,T, 10, L 

6105 FOR W-i TD 10:NEXT W 

6.110 GOTO 6090 

6200 DATA 162,136, i 08 , 8 1 , 6S , 53 , 40 , 33 

6210 DATA 182,153,121,91,76,60,45,37,-1 

7000 REM RAUM GESCHAFFT 

70 1 POP : P«P+T I ME s POS I T I ON 14,1s? # 6 ; P 

7020 FOR 1=15000 TO STEP -230: SOUND 0, I , 10, 1/ 1000: NEXT I 

7 03 R Q OM = ROOM+ 1 : I F RG M < =M A X R OM THEN 1 00 

7040 GRAPH I CS 1 8 : ? #6 ; " GRAT UL AT ION!!! " : ? #6 s P=P+ 1 000 

7050 7 #6;" DU HAST DAS RAETSEL" 

# 6 ; " DE S GEHEIMNISVOLLEN" 

#6: "SCHLOSSES GELOEST ! ! ! " 
7080 FOR W=l TO 600: NEXT W 
7090 GOTO 6000 

10000 DATA 16,17,0, , 0, , , O, 4, 6 , 1 , 1 0, 1 7 , 1 7 , 52 , 1 1 6 
10010 DATA 3,5,7,15,8,9,12,20,13,13,16,20,17,17,19,17,-1,0,0,0 

10020 DATA 2,4,2,8,4, 1,8,8, 1, 13,8, 1, 13, 12, 1, 17, 12, 1, 17, 16, 1, 19, 16, 1, 19, 18,2, 17, 1 
8,1,17,21,1,8,21,1 

1 0030 DATA 8,16,1,2,16,1,2,4,1,-1,0,0 
10100 DATA 3, 15,8, 12,3,0,5, 1,4, 10, 7, 15,2, 15., 36, 68 

101 10 DATA 3,5, 9, 20, 10, 1 1 , 16, 20,0, 15, 2, 15, -1 , 0,0,0, 10, 10,2, 17, 10, 1 , 17, 21,1, 2,21, 
1,2,16,1,0,16,1,0,14,2,2,14,1 

10120 DATA 2,4, 1, 10,4, 1 , 10, 10, 1,6,8,2,6, 16, 1, 14, 16, 1, -1,0,0 
1 0200 DATA 1 4 , 1 3 \ , 6 , Ö , Ö , [ , 4 , 7 , 8 , 8 , 1 4 '„ 1 2 \ 22 , 52 
10210 DATA 3,6,9,13,10,13,16,20,14,2,14,12,-1,0,0,0 

10220 DATA 15, 2, 2, 15, 12, 1 , 17, 12, 1 , 17, 21 , 1 , 10, 21 , V, 10, 14, 1 , 2, 14, 1 , 2, 5, 1 , 10, 5, 1 , 10 
p 1 it; 19 i 1 1; ~< i — i n o «^ 

10300 DATA 8, 18, 13, 12,4, 168,3, 1,8, 13,8,7,8, 19,4,36 

10310 DATA 5,5, 14,18,3,8,16,15,8,19,8,23,-1,0,0,0 

10320 DATA 7,23,2,7, 19, 1,4, 19, 1,4, 16, 1 , 2, 16, 1 , 2, 7, 1,4,7, 1 , 4 , 4, 1 , 15, 4, 1 , 15, 7 , 1 , 17 

,7,1,17,16,1,15,16,1,15,19,1,9,19,1 

10330 DATA 9, 23, 1 , 9 , 7 , 2, 9, 16, 1 , 6 , 1 2 , 2 , 13 , 12, 1 , - 1 , O, 

10400 DATA 11,14,16,14,5,0,3,1,5,18,4,9,11,15,244,4 

10410 DATA 2,7,7, 19,8, 12, 17, 14, 15, 12, 17,20, 11, 15, 11,23,-1,0,0,0 

10420 DATA 10,23,2, 10, 15, 1,8, 15, 1,8, 19,1, 1 , 19, 1 , 1 , 6, 1 , 8, 6, 1 , 8, 1 1 , 1 , 18, 1 1 , 1 , 18,21 

, 1 , 1 4 , 2 1 , 1 , 1 4 , 1 5 , 1 , 1 2 , 1 5 , 1 , 1 2 , 23 , 1 

10430 DATA -1,0,0 

10500 DATA 9 , 21 , 9, 5 ,• 6, 168, 2 . 5 , 1 , 3, 7 , 1 6 , 7 , 9 , 22 , 1 96 , 244 

10510 DATA 2,4,17,21,9,22,9,23,-1,0,0,0 

10520 DATA 8,23,2,8,22, 1 , 1 , 22, 1 , 1 , 3, 1 , 18, 3, 1 , 18,22, 1, 10,22, 1, 10,23, 1, 1,9,2,5,9, 1 

,5,6, 1, 14,6,2, 14,9, i, 18,9, 1,-1, 0,0 

10600 DATA 9,5,9, 18,7, 168, 1.5, 1,8,20, 10,20,9,4, 166, 196 

10610 DATA 2,5, 17,20,9,4,9,6,9,2,9,4,-1,0,0,0 
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10620 


DATA 


,19, X 


, 16,6, 


10700 


DATA 


10710 


DATA 


10720 


DATA 


,3,5,2,17,1 


10730 


DATA 


10800 


DATA 


10810 


DATA 


10820 


DATA 


2„ 18,: 


20, 1,~ 


10900 


DATA 


1 09 1 


DATA 


10920 


DATA 


,1,13 


11,1, 


28000 


DATA 


28010 


DATA 


28020 


DATA 


28030 


DATA 


2 SO 40 


DATA 


28050 


DATA 


28060 


DATA 


28070 


DATA 


28080 


DATA 


28090 


DATA 


28100 


DATA 


28110 


DATA 



3, 2,2,8, 4, 1, 1,4, 1, 1,21, 1, 18, 21 , 1 , 18, 4, 1, 10,4, 

1,9,20,2,-1,0,0 

17, 19, 0,0,0, 0,0, 0,2, 20 ,16, 5, 18, 19, 150, 164 

18, 19, 19, 19,2,4, 17,21, -1,0,0,0 

1,3,2, 18,3,1, 18,22, 1 , 1 , 22, 1 , 1 , 3, 1, 16,18,1,16, 

4, 1, 12,4,2, 16,8, 1,11,4,2 

16,9,1,3, 11,2,13,21,1,4, 11,2,14,21, 1,-1,0,0 

17,21, 15,7,5,0, 1, 1, 17, 15, 17,4, 18,21 , 184, 116 

2,4, 17,21,18,21, 19,21,-1,0,0,0 

1,3,2, 18,3, 1, 18,22, 1 , 1 , 22, 1 , 1 , 3, 1,3, 16, 

1,0, 

12, 10,4, 15,6, 0, 1.8, 1, 15,7,3, 19, 12, 11,246,68 

3, 11,8, 19,8,7, 15, 10, 12, 11, 12,23,-1,0,0,0 



1, 10 



1,3,6,2,3, 19, 1, 16 



o =; i 



J "J *■) 



17,15, 1 



1 3 , 1 6 , 1 , 1 , 1 8 , 2 , 1 6 , 1 8 , 1 , 3, 20 , 



l J. , jl. ..I , jL. , i. J, , J. i. , j. , .-,J.i,J.,,,j„-.-,J.,j_,. 

13,23, 1,-1,0,0 ■ 

1,60, 126,90,219,255, 195, 102,60 
3 \ 60'n 90 , 90 , 255 , 2 1 9, 1 65 , 255 , i 65 
4, 126,42,221, 123,30,56,110,66 
5,40,84, 186,84, 124, 198, 186,238 
6,66, 165, 165, 126,24, 189, 102, 153 
7,98, 181, 173, 126, 195, 189,247, 110 

Snirir r-ycrsr ^etet ocncn --jcrcr •oercr <-icrcr nci 
, ^1-uJ^J, jiuJU, ZJUj *1JJ) jivJvJ, 2JJ, jiwJwl, ZJ, 

9,8,66,24,61,180,24,66,16' 
10,224, 160, 160,240, 26, 15,6,2 



1,2, 11,1,7, 11, 1,7,6, 1, 16,6, 1, 16, 11 



11,255., 239, 199, 199 
13,0,0,0, 119,221,0 



H7Q OT 1 0"T1 

, 



14, 191,0,251,251,251,0,191, 191,-1 



100 REM 


SSÖSS@SS©SSSSSSSSSSSSSl' J, SSl ,9 S^'' i 'fl ; 'f ^ l' i;, 


110 REM 


ss 


SS 


120 REM 


ss 


5 GEWINNT FUER RTRRX 800 SS 


130 REM 


SS 


SS 


140 REM 


SS 


VON SS 


150 REM 


SS 


PS 


160 REM 


SS 


ELLMRR MEDER SS 


170 REM 


SS 


SS 


180 REM 


SS 


CO COPYRIGHT 1984 SS 


190 REM 


SS 


SS 


200 REM 


SS 


SS 


210 REM 


SS 


SS 


220 REM 


SS 


LREMGE' 7-234 KBYTE SS 


230 REM 


sssssssssssssssssssssssssssssss 


240 POKE 82 


,0 


250 FOR 


1=1 


TO 3'GOSUB 460 


269 FOR 


PSE 


»1 TO 100'NEKT PSE 


270 FOR 


TD« 


1 TO 7= FOR K-3 TO 10 


280 SOUHD 1 


>K> 10.8 


290 HEXT K'- 


HEXT TD 


300 HEKT I 




31Ö SOUHD 1 


,0.. 0..0 


320 GOTO 450 


330 REM 


sssssssssssssssssssssssssssssss 


340 REM 


SS 


UNTERPROGRRM ZUM FEST- SS 


350 REM 


SS 


STELLEN OB KONSOLEN- SS 


360 REM 


SS 


TRSTE GEDRUECKT SS 


370 REM 


sssssssssssssssssssssssssssssss 


388 POKE 53279 > 8 



fünf 







Fünf gewinnt ist ein 
Strategiespiel für 2 
Personen mit 2 Joy- 
sticks, geschrieben in 
ATARI Basic. 

Taktisches Gespür, strategisches und 
logisches Denken, schnelles Erkennen 
der Situationen sind gefragt- - Eine 
Version des beliebten Strategiespieles. 
Zu Beginn des Spieles wird eine Spiel- 
anleitung angeboten, die das Pro- 
gramm kurz beschreibt. 
Der Sinn des Spieles ist relativ einfach: 
Wer es als erster schafft, 5 Steine in 
eine Reihe zu bekommen, horizontal, 
vertikaf oder diagonal, gewinnt das 
Spiel. 

Für Spieler 1 (blau) ist am Anfang des 
Spieles der 1. Stein gesetzt. 
Nach Ende des Spieles wird der Ver- 
lierer getröstet und durch drücken der 
Start-Taste das Spiel von neuem be- 



gonnen. 

Also dann: 



Viel Spaß! 
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390 
490 
418 
420 
430 
440 
450 
460 
470 
480 
499 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
680 
610 
620 
630 
640 
650 
660 
670 
680 
720 
730 
740 
750 
760 
770 
790 
790 
S00 
810 
820 
330 
840 

850 
860 
870 
886 
890 

960 

91Ö 
920 
93Ö 
94© 
95Ö 
960 
970 
980 
990 

1000 



DRflWTO 
DRAWTQ 
DRRWTO 
DRflWTO 
DRAWTO 



TRfl'P 398 «IF PEEKX 53279 X>6 OR PEEKX 53279 >7 THEN GOTO 390 

RETURN 

REM GGGGGGGßßG6GGG8ßGGßGG8GGSS8GGGG 

REM GG"UNTERPRÖGPHirrZUR"DRR- """"88 

REM 88 STELLUNG DES P. ANFANGS 88 

REM 8(9888881388888868888888888888888 

POKE 755,1 'GOTO 608 

GRAPHICS 5 

SETCOLQR 4,0.0-SETCOLOR 2,8,0 

SETCOLOR 1,13,9 = COLOR 2 

PLOT 50. 8: DRflWTO 30,8 

DRflWTO 30* 19 'DRflWTO 47,19 
47, 28 'DRflWTO 30,28 
30,31 'DRflWTO 50,31 
50, 16 'PLOT 50,16 
33, 16 'DRflWTO 33,11 
50, 11 'DRflWTO 50,8 

PLOT 0,0 'DRflWTO 79,0 

DRflWTO 79, 39 'DRRWTO 0,39 

DRflWTO 8,8 

RETURN 

PRINT "02 

PRINT "<18 

PRINT "(13 

PRINT "<25 

FOR PSE-1 TO 1008 'NEXT P8E 

DIM ANTW*<1> 

PRINT ">Wird SPieU.-nleitu.-n« benoeti^t CJ^N) "j 

IHPUT ANTWS'IF ANTWS«"N'« THEN GOTO 868 

GRAPHICS 0' SETCOLOR 2,8,8 

PRINT "Dies ist ein 8t>iel fuer 2 Personen. " » PRINT 

"Der Sinn des Spieles besteht darin, dass" • PRINT 
"mä:a versuchen rouss 5 Steine entweder in 1 
H HORIZONTALER, VERTIKALER ODER IN DI Fl- 1 
"GONALER Reihenfolge zu.sarwienzu.se tzten. "» PRINT 
"Durch druecken des roten Knopfes am" «PRINT 
" Joystick (1/2) wird der Stein besetzt. "• PRINT 
"Fuer Spieler 1 (blau) ist der erste "«PRINT 
"Stein zu Besinn des Spieles besetzt. " «PRINT 

"VIEL SPRSS >START": 

380 



SPACES ) 
SPACES ) 
SPACES ) 
SPACES ) 



»GEWINN T" 

V0N(29 SPACES) 
ELLMRR MEDER"; 

(C) 1384"; 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

GOSUB 

REM 

REM 

REM 

CLR 

REM 

REM 

REM 

GOS 



PRINT 
PRINT 



GGBEGINN DES HAUPTPROGRAMMS Gß 

"POKE * i 2 7 1 1 9 ~POKE " 13 JÜi "POKE *"?33 , 1 « POKE 82 , 8 

GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG 

G66 INITIALISIERUNG"" ~"@ett 

ßßßßßßßßßßßßßßßßßßßßßßÖßÖGßßßßß 

©"1800*" 
PLR*1-PLR 

REM GGGGGGGGGG@GGGGG@GGG@G@S@@GG@SG 
REM GG FESTSTELLUNG "DER "gEG-"" ~""gG 
REM GG WERT IGEN POSITION GG 

REM GPGGGGGGß , GG6GGGPGP' Sl f B Pr9f9PfiHBP(i | fiW9(9 
PK*PEEK<" PPOS<FLR 3 > " " -- — — — - - 
REM GGßGG®GßßGGGGGf 9 i , *n>GPi , 9pf9f9PPi ! B | n! | PPn>(* 

rem gg" "setzen "der "steine" "~~~~gg 

REM GGGGGGGGGGGGGGGGGGGGGG8GGGGÖG6G 
POKE "pPOSCPLR ) TP I ECK PLR " " " " " "* " " 
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lfilQ REM 6SS@SSßßfifiSGSS®SSSI2SSS@ßS®fi^^fi 

1029 REM 6 BLINKDAUER DES STEINCHENS "ÄS 

lPI3fl REM ^^^SQSSQSSfiläSfiSßSS^^lS^ßfiSSS^S 

1040 FOR BLD~1 TO 10= HEXT BLD 

1Ö50 ST=STICK<PLR>=IF 8TRIGCPLR>=0 AND PK-83 THEN 1170 

1060 POKE PP0S(PLR),PK-128*CPK>128) 

10?« rem eeeeeeeeeeeeeeeeeeeeeeeeeeeeee 

1080 REM Ö WENN STICK NICHT BEWEGT SS 
1090 REM © BLEIBT POSITION ERHALTEN ßS 

ti00 rem eeeseeeeeeeeeeeefieeeeeeeeeeeee 

1110 IF ST=15 THEN 1000 

1120 POKE ppos<:plr),pk 

1 1 30 PPOS< PLR )=PPÖS< PLR )+D 1 RC ST ) 

1140 PK=PE£K<PPOS<PLR>> 

1150 IF PKOS3 AND PKOPIECE<0> RND PKOPIECEC 1 ) 

THEN PP08< PLR >«PPOSC PLR >-P I R< ST 
) 

1160 GOTO 960 
1170 POKE PPOSCPLRXPlECECPLR) 

ii80 rem eeeöeeGeeöGeeeeeeeeeeeeeGeeeeG 

1190 REM es UEBERPRUEFT OB GENAU 5 ©© 
1200 REM I2@ STEINE IN EINER REIHE SS 

1219 REM n»@6@ßöi2@@l2GSß@S@GI3SSSS©S®GG®SS 

1220 FOR 1=5 TÖ*"i4 
1230 TEMP-PPOSc: PLR ) « DIR»DIRC I > s N*B 
1240 IF DIR=0 THEN 1310 
1250 TEMP-TEMP+DIR 

1260 IF PEEK<TEMP)»PIECE<PLR) THEN N-N+1'GOTO 1250 
1278 N»0 

1280 TEMP=TEMP~D1R 

1290 IF PEEK<TEMP>"PIECECPLR> THEN N-N+1'GOTO 1288 
1300 IF N-5 THEN 1360 
1310 NEXT I 
1320 GOTO 91© 

1330 REM 6@@@@S@fi8SS6S68@@SS@S@@SS@@Sß@ 
1340 REM ©"UEBERPRUEFT WER GEWONNEN" ©@ 
1350 REM Q$®$$$$$%$%$$$$$$$$$$$%$Q$%®%$ 
1360 FOR I«I"fÖ"i&T 
1370 POKE 712, PEEK< 53770) 
1380 NEXT I 
1390 POKE 712,0 

1400 P-PEEK< 7 1 0+PLR > ■ C= I NT* P' 1 6 ) 
1410 FOR 1=1 TO 10 
1420 POKE 7 1 0+PLR, 9 
1430 SOUND 0,180,9,8 
1440 FOR PSE=1 TO 18= HEXT PSE 
1450 POKE 7 1 0+PLR, P 
1460 SOUND 0,100,10,8 
1470 FOR PSE~1 TO 20 'HEXT PSE 
1480 NEXT I 

1490 P*PEEK< 71 1-PLR ) ■ OINK P/16 > 
1500 FOR 1=14 TO STEP -0.2 
1510 SOUND 0,1*2,12,1 
1520 POKE 71 1-PLR, C*16+I 
1530 NEXT I 
1540 POKE 71 1-PLR, 8 
1550 FOR 1=1 TO 10 
1560 POKE 53274, PEEK< 53770) 
1570 NEXT I 
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1580' 
1590 

1600 

1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1780 
1710 
1720 
1730 
1740 
1.750 

1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1#60 
1870 
1880 
1830 

1900 

1910 
1920 
1930 
1940 
1950 
i960 
1970 
1980 
1990 
2B00 

2010 

2020 

2930 
2940 
2050 
2Ö60 
2862 
2064 
2966 
2070 
2080 
2090 

2100 

2110 
2120 



FÜR PSE-1 TO 500= HEXT PSE 



GRAPHICS 17 
IF PLR THEN 



SETCOLOR 0/0,8 
GOTO 1680 



v* 



2/1 : 
6..6'- 
0..12 
0.13 

0/14:? 
0/15=? 

2/1 =? 

6>6-7 
0/12 = 

0/13: 

0,14 = 

Ca 1 er . 



#6/"sPieler eins ist" 'POSITION S,?*? #6; "*sie9er*" 
#6/ '■********■' 'POSITION 6/8 = ? #gj "»m**** 11 

#6/ "PECH SPIELER ZWEI," 

#6; "VIELLEICHT KLAPPT" 

#6; "ES DH8 NRECHSTE " 

#6/ "MAL." 

#6.: "SPIELER ZWEI IST" 'POSITION $,?■? #6; "«SIEGER*" 

#6 i " sessssss " • pos i t i oh s * s • ? #6 •> " eeeeeeee " 

' #6/ "PECH SPIELER EINS." 
' #6/ "VIELLEICHT KLAPPT" 
' #6 /"ES DAS NRECHSTE" 
> #6.: "MAL." 
PSE 
#6/"DRUECKE START FUER M »POSITION 4/23=? #6/ 



300: NEXT 



POSITION 

POSITION 

POSITION 

POSITION 

POSITION 

POSITION 

GOTO 1749 

POSITION 

POSITION 

POSITION 

POSITION 

POSITION 

POSITION 

FÖR PSE*1 TO 

POSITION 0/22' 

"NEUES SPIEL" 

FÜR PSE«1 TO 300= NEXT PSE 

GOSUB 38Ö 

GOTO 860 

GOTO 1798 

DIN DIR<15> 

FOR 1=5 TO 15 

READ A = DIRa)-A 

NEXT I 

DATA 21 / -19/ 1 / 8/ 19/ -21 / -1 / 0/ 20/ -28.. 

REM Q@6Q@@@@6£&Sß@QS6@66 86Q@666lä@ß 

REM CS ™ " B I LOSCH I RM ""AUFBAUEN "ffiß 

REM @®Ö@6GÖSGfißSeöSßÖS®@ßläSG@ßöeöl5 

graph i es " 16+ i "sif cöüör "iTeTi"" 

POKE 756/226 

SCR"PEEK< 88 >+256*PEEK/ 89 > 

FOR 1=2 TO 20 

FOR J«2 TO 17 

POKE SCR+ 1 #20+ J .. 83 

NEXT J 

NEXT I 

FOR 1=2 TO 17 

POKE SCR+40+I..87 

POKE SCR+420+I/88 

NEXT I 

FOR 1*2 TO 20 

POKE SCR+20SI+2/65 

POKE 8CR+20#I+17..68 
T. 

SCR+42/ 81 = POKE 8CR+57,. 69 
SCR+422 .. 90 : POKE SCR+437 / 67 

POSITION 4/0=? #6/"FUENF GEWINNT" 

REM 6S6@e66@Q@@S(S6@666@6fSlQe6Q6ii3@@lä 
m ~ AUFBAU " DES ~ST E I NCHENS " "" " "ffifi 
SSS SSSSS SSSSSS 'S SS SSSSS SSS SSSSQi 

ppösfi>7piECEo>rcöÜNT<i> 

PPOSC >*8CR+229 = PPOS< 1 )=SCR+209 
PIECE< )-148 • PIECE< 1 >~212 
rOUNTC O )=0 = COUNTC 1 )=0 
POKE PPOSC ) .- P l ECE< > 
RETURN 



NEXT 
POKE 
POKE 



REM 
REM 
DIM 
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INSTR 



»fi* 



U 



Die Erde wird von einem Weltraummonster, 
dem bösen Göört bedroht. 



Dieser böse Göört kann jedoch nicht 
ungesehen die Erde erreichen, da die 
Radaranlagen ihn sofort erkennen 
würden, und er keine Chance hätte, 
zur Erde vorzudringen. 
Aus diesem Grund schickt er Wellen 
von Ufos zur Erde, um die Radaranla- 
gen zu vernichten. 

Wenn es den UFOs gelingt, alle fünf 
Radartürme zu zerstören, so kann der 
böse Göört zur Erde vordringen. 
Es liegt nun an Ihnen, diese Invasion 
zu verhindern. Schießen Sie die UFOs 
mit Ihrem Abfangjäger SILVERSPAR 
ab, bevor diese sämtliche Radartürme 
vernichtet haben. 

Sollte Ihnen dies nicht gelingen, so 
müssen Sie gegen den bösen Göört 
höchstpersönlich antreten und mit 
ihm kämpfen, 

SILVERSPAR ist ein Spiel für den TI 
99/4 A, welches in Extended Basic ge- 
schrieben wurde und mittels Joystick 1 
gesteuert wird. 

SILVERSPAR ist eine Herausforde- 
rung an Ihr Reaktionsvermögen. 
Tippen Sie das Listing ein, doch bevor 
Sie das Programm mit ,,RUN J ' starten, 
schreiben Sie dieses auf Kassette oder 
Diskette weg. 

Das Programm besitzt einen Copy- 
rightschutz, der beim Weglassen oder 
Verändern der Copyrightzeilen das 
System „abstürzen" läßt. Der Rechner 
kann dann nur noch mit <FCTN> 
<QUIT> oder ausschalten neu initia- 
lisiert werden. 

Nach dem Programmstart mit „RUN" 
dauert es einige Sekunden, bis der 
Rechner die interne STACK-Liste er- 
stellt hat. Jetzt wird der Bildschirm für 
ca. 30 Sekunden schwarz. Das Titel- 
bild erscheint und die Titelmelodie 
wird gespielt. 

Zum Spielstart drücken Sie den Ak- 
tionsknopf am Joystick 1. 10 Sekun- 
den später beginnt das Spiel 
Am unteren Bildschirmrand werden 
jetzt die Kirche, das Haus und ein Ra- 
darturm aufgebaut. Der SILVERSPAR 
erscheint am rechten Bildschirmrand. 
Steuern Sie mit dem Joystick den SIL- 
VERSPAR nach rechts, links, oben 
und unten. Der SILVERSPAR bewegt 
sich in Spielszene 1 nur sehr langsam 
in horizontaler Richtung. Dabei be- 
wegt sich die Stadt jedoch relativ 
schnell in entgegengesetzter Richtung, 
so daß der Eindruck eines schnellen 
Fluges entsteht. 

Gleichzeitig mit dem SILVERSPAR 
wird ein UFO auf dem Bildschirm 
sichtbar, welches es gilt abzuschießen. 
SILVERSPAR kann nur horizontal 
schießen. Um einen Schuß abzufeuern, 
muß der Aktionsknopf gedrückt und 
gleichzeitig der Joystick in die ge- 
wünschte Richtung bewegt werden 



(rechts oder links). 

Die UFOs wechseln laufend die Farbe. 
Je nachdem, welche Farbe das UFO 
beim Abschuß hatte, erhalten Sie 
UFO Typ 1: 10 bis 100 Punkte 
UFO Typ 2: 20 bis 200 Punkte 
UFO Typ 3: 30 bis 300 Punkte 
UFO Typ 4: 40 bis 400 Punkte 
Die UFOs versuchen, die Radartürme 
abzuschießen. Wird ein Radarturm ge- 
troffen, so wird dieser viermal durch 
einen neuen Turm ersetzt. 
Nach 1 abgeschossenen UFOs ist ein 
leises, dann immer lauter werdendes 
„Schnarren" zu hören. 
Dies ist das Zeichen, daß eine neue 
Welle UFOs naht. 

Gelingt es Ihnen in einer Welle alle 10 
UFOs abzuschießen, ohne daß hierbei 
ein Radarturm abgeschossen wurde, 
so erhalten Sie zu Ihren anfänglichen 5 
SILVERSPARs einen zusätzlichen 
Abfangjäger hinzu. 
Kollidiert SILVERSPAR jedoch mit ei- 
nem UFO, so verliert er ein „Leben". 
Wenn die UFOs alle 5 Radartürme 
zerstört haben, so erlischt die Stadt 
und eine Sirene wird lautstark hörbar. 
Der böse Göört kommt jetzt ins Bild. 
Um eine neue Stadt mit weiteren 5 
Radartürmen zu bekommen, müssen 
Sie den bösen Göört besiegen. Es ge- 
nügt jedoch nicht, Göört mit einem 
einzigen . Treffer . zul erledigen^ Göört 
muß zehnmal getroffen werden, bevor 
er vernichtet ist. 

Mit jedem Treffer wechselt der böse 
Göört die Farbe und Sie erhalten, je 
nach Farbe, 50 bis 500 Punkte. Wenn 
Sie Göört zehnmal getroffen haben, so 



explodiert er und Sie erhalten eine 
neue Stadt. 

Von Zeit zu Zeit schleudert Göört ei- 
nen Feuerwirbel gegen den SILVER- 
SPAR. Diesem Wirbel gilt es auszu- 
weichen, denn eine Berührung . mit 
dem Feuerwirbel oder mit dem bösen 
Göört kostet ein „Leben". 
Das Spiel ist dann zu Ende, wenn alle 
SILVERSPARs zerstört sind. 

Doch jetzt genug der Erklärungen. Ich 
wünsche ein ERRORfreies Eintippen 
und viel Spaß beim Spiel. Nachfolgend 
noch einige Tips zum Eintippen: 

1 ) Einige Zeilen sind länger, als es der 
TI zuläßt. Tippen Sie die Zeile ein 
und schicken Sie diese mit < EN- 
TE R> ab. Danach holen Sie die 
Zeile mit <FCTN><REDO> wie- 
der zurück und können den Rest 
eingeben. 

2) Benutzer eines Diskettenlaufwer- 
kes ohne Speichererweiterung soll- 
ten das Spiel bei abgeschalteter Pe- 
ripheriebox eintippen und über ei- 
nen Kassettenrecorder abspei- 
chern, da durch den Dateibuffer des 
Laufwerkes der Speicher beim Pro- 
grammlauf zu klein ist. 

3) Wenn Sie ein Laufwerk mit Erwei- 
terung besitzen, so ist vor dem Ein- 
lesen des Programmes von Kassette 
die Befehlsfolge: CALL FILES(l) 
<ENTER> NEW <ENTER> ein- 
zugeben, damit das Programm von 
Kassette eingelesen werden kann. 

4) Während des Spielafolaufes darf die 
<ALPHA LOCK>-Taste nicht 
eingerastet sein, da sonst der Joy- 
stick nicht richtig abgefragt wird. 

5) Tippen Sie vor allem die DATA- 
Z eilen sehr genau ab, da ein hier- 
aus resultierender Fehler sehr 
schwer zu finden ist. 



180 REM ********************************** 




110 REM * „ , , * 
120 REM * SILVERSFRR g 




130 REM *™™: ~ * 

14R REM * eirt SP i 6-1 fuer den TI 99/4 R % 




15Ö REM * beschrieben in Extended BRSIC % 




160 REM * Steuerung mittels Joystick 1 # 




180 REM * <<z " } 1984 by Volker Becker $ 




190 REM * * 




200 REM ********************************* 




210 REM 




220 REM 




238 0M ERROR 1600 




240 CPR*-"ffi 1984 VOLKER BECKER'.' 




250 SKP-RSCC SEG$< CPR», 8, 1 ) >-RSCC SEGK CPR$, 20, 1 ) > 


-4 


260 IF SKP THEN 1600 ELSE 929 




270 RRNDÖWIZE 




280 ÖM ERROR STOP 




290 DRTR 104,112,128,124,136,140 




308 OPTION BASE 1 




318 DIM C<6>,CU<4,2>,BC6> 




320 RESTORE 298 




330 FOR 1=1 TO 6 ■ •• READ CXI?- NEXT I 
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340 CALL CLERR ' ' CRLL 8CREENC 2 ) " CALL GRAPH 

350 RESTÖRE 510 

360 FOR 1=1 TO 10 - RERD C0LXI>" NEXT I 

378 CRLL HCHHR< 2.. 1/30.704) 

380 CRLL CHRRSET :> CRLL SCREENC2) 

390 FOR 1 = 1 TO 100 :: CRLL HCHRRCRND*21+2,RND#3(3+1,91 >" NEXT 1 

400 DRTR 96.. 100. 64, 68, 72.. 76, 80.. 84 

410 RESTORE 490 

420 FOR 1=1 TO 4 ■ = FOR K=l TO 2 : = RERD CUCI,K) = * HEXT K = • NEXT I 

430 CALL TITELCCOLC ),B< ),CPR$,STV>; ; P,UN=0 •• 3PRR=4 

440 CRLL HNZSPRRC SPRR ) = • CALL PUNKTECP) 

450 CRLL MINICHHR 

460 CRLL COLORC 1,2,6,3,2,6,4,2,6,8, 11,1) 

470 CRLL SPRITE-:: £5, 132, 6, 185, 23, £4, 104, 6, 185, 110, £6, 129, 6, 185, 195) 

498 FOR 1*4 TO 6 - •■ FOR K=184 TO 169 STEP -1 ■■ '■ CALL POSITION* £I,Z,S>" CRLL LOC 

RTE<£I,K,S)< = CRLL SOUND* -1 00 j I*100H<,8, I*100-K>2,9, I*100-K-2,0)" NEXT K :: NEX 

T I 

490 CÜ=i 

500 TRSS,STV,TR!JFO=0 

510 DATA 7,9,10,11,12,15,16,8,4,14 

520 UN=UN+1 ■■ • IF UN>4 THEK UN=1 

530 FOR 1=4 TO 6 " CRLL MOTIONC £1,0,0 >'■ '■ NEXT I - XR=0 

540 CALL SPR1TEC £1 , 108 , 1 1 , 89, 30, 0, ) 

550 CRLL SPR I TEC £2 , 44 , 1 5 , RND* 1 29+29 , RND* 1 78+58 > » > CRLL COLOR< £2,16)== FOR K= 1 TO 

5 '-- CRLL BÖUNDi[-20W,10-2#IO" NEXT K " CRLL COLORC £2, 15) 
568 CALL PRTTERNC £2 , CU< UN, 1 ) ) '• ■ CRLL COLORC £2 , COLC CO "> > 
570 CRLL COLORC £4, 3) 
588 CRLL P0SITIONC£2iVZ2iVS2><» IF VZ2<60 THEN SG=i ELSE IF VZ2M50 THEN SG=-1 E 

590 CRLL ""mÖT l Of'k £2, RND*2*8G , RND* 1 8*C 8GNC RND* 1 ■ 5- 1 >> > " CALL COLORC 8 , COLC RND*9+ 1 ) 

,1) 

?m FOR LF=1 TO 10 

610 CÖ=C0+1 < < IF CO>10 THEN CO«l 

620 CALL COLORC £2, COLC CO)) 

630 FOR 1=1 TO Z •• ■■ CRLL JOYSTa,X,Y)- CRLL PRTTERNC£4,CCI ),£2,CUCUN, I )) 

640 CALL P0SITI0NC£1,VZ1,V81,£2,VZ2,V82,£4,VZ3,V33): = IF RBSC VS2-V83X12 THEN 76 



658 IF X-Xfl THEN 670 

Sm FOR K=4 TD 6 ■ i CALL MOTION* £K, 0,-X*5) ' = NEXT K 

670 IF X«0 THEN 698 

680 IF X=-4 THEN CRLL PFTTTERNC £ 1 , 1 1 6 >ELSE CRLL PRTTERN* £1,108) 

698 CRLL MÖTION*£i,-Y*3,X) 

700 CALL C0IHCC£1,£2,12+RUNDE,ST>' > IF ST THEN 1280 

718 CRLL KEYC1/T/8-)*' IF T=13 THEN 1140 

720 XR-X 

738 NEXT I 

740 NEXT LF 

750 GOTO 530 

760 CRLL SPRITEC £3, 60, 16, VZ2+8,V82, 127,0) > « CRLL SOUNDC-50,-3,0)' ' CALL POSITION 

*£4#VZ3,VS3>" CRLL DEL3PRITE<£3)» * IF RBS*VSZ-VS3X13 THEN 8*4 n GOSUB 780. ■' 

GOTO 840 

770 GOTO 650 

780 CALL MOTION* £1,0,0) 

790 CALL PATTERN* £0,36)' i CALL COLORC £Q, 12)= * CRLL SOUND* -100, -7,8) 

800 CALL PRTTERNC£Q,40)- « CALL SOUND*- 108,-6,8) 

810 CALL RATTERN* £0,44 )> = CRLL SÜUNDC-100,-5,0) 

820 CRLL COLORC £Q, 16) 

830 RETURN 

840 CRLL POSITION* £4, VZ3,V83) 

858 CRLL DELSPRITE*£4> 

860 CRLL MOTIONC£1,0,0,£2,0,8,£4,0,0,£5,0,0,£6,0,0): * Xfl=0 

870 TRUFO=TRUFO+l = « 8TV»»1 ■■ ' IF TRUFO-S THEN 950 
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CALL 
CRLL 
Cl»l 
CRLL 

CRLL 



920 
'930 
940 

sm 
9m 

970 

989 

1000 

ELSE 

1010 

VI) 

1020 

1038 

1049 

1050 

c«i>) 

1068 IF 
1070 

1080 

1098 

1100 

1110 

1120 
1130 
1149 
1150 
1 160 
1170 
1180 



CRLL LOCRTE« £4 , K , S ) " CR 



HEXT I 



880 CALL SPRITE« £4. 104,6, 185, VS3> 

890 TRO"200+100*TRUFO 

900 FOR K*184 TO 169 STEP -1 ■■ •■ CRLL POSITION« £4,Z,S)= 

LL 8ÖUND«-100,TRö-K,0,TRO-K+2,0,TRG-K-2,0); : NEXT K 

910 GOTO 520 

RRNDOMIZE RSC«8EG$«CPR3i,9,I)) 

FOR 1*8 TO £0 '« SUf1*SUM+INT«RND*RSC«3EGf«CPR*,I,l))): 

GOTO 1460 

DELSPRITECfiLD" CRLL SPRITE« £2, 120, 14,247, 120,2,0) 

MOTION« £2, 0,0) 

■ i CRLL COLOR( £2, COL< Cl > ) 

8PRITE< £1 , 108, 1 1 , 89, 30, 0, ) 

LOCRTE« £2,89,120) 
CRLL POSITION« £2, VZ2,V82)" IF VZ2<60 THEN SG=1 ELSE IF VZ2M50 THEN SG--1 
SOSGNCRND* 1.5-1) 
CRLL MOTION* £2, RND#2*SG,RND*10#<SGN<RND* 1,5-1)))" CRLL C0L0R«8,C0L«RND*9+1 



CRLL SIRENE 



FOR LF*1 TO 11 -RUNDE 
CO*CÖ+l • ■ IF CO>10 THEN 
FOR 1*3 TO 4 
CRLL J0Y3T« 1 , X, T ) " CRLL 



CO*l 

POSITION« £1, VZ1, VS1,£2, VZ2, V82)= = CRLL PRTTERN«£2, 



X«0 THEN 1080 

IF x a -4 THEN CALL PRTTERN«£1, 116)EL8E CRLL PRTTERNC £1/108) 

CRLL M0TI0NC£l,-y*3,K*3) 

CALL CÖINC«£1,£2,12+RUNDE,ST)" IF ST THEN 1430 

CRLL KEY«1,T,8)=< IF T«18 THEN 1310 

NEXT I 

NEXT LF 

GOTO 1490 

IF K=9 THEN 720 

CRLL MOTION« £1,0,0) 

CRLL POSITION« £1 , VZ1 , VSI , £2, VZ2, V82 ) 

IF «V81+2#XX1 0RCVS1+2*X»255 THEN 720 

CRLL SPRITE«£3,92,16,VZ1,VS1+2*X,0,31*X)" CRLL SOUND« «5 0,-2,0): 
2-VSi)OSGN«X)THEN CRLL DELSPRITECE3)" GOTO 720 

1190 CRLL DELSPRITE<£3)" IF RBSCVZ1-VZ2X12 THEN Q=2 " GOSÜB 780 " 
1200 GOTO 720 

1210 P»P+10*CO#UN- " CRLL PUNKTE« P )•• = TRSS*TRS8+1 " IF TRSS«10 THEN 1230 
1220 GOTO 520 

1230 TRSS«0 : i RUNDE-RUNDE+i <■ IF STV THEN 1260 ELSE 8PRR»SPHR+1 

1240 IF SPHR>15 THEN SPRR=15 

1250 CRLL RNZSPRROPHR)" CRLL BIM 

1260 IF RUNDE >8 THEN RUNDE"8 

1270 CRLL NEXTR '- ■■ STV-0 = = GOTO 520 

1280 CALL DEL8PRITE<£2)> ■ Q«l " GOSUB 780 

1290 CRLL DELSPRITE<£1)" CRLL CÜLÜR«£1,1) 



IF SGNCVS 
GOTO 1210 



SPRRaSPRR-1 



CRLL RNZSPAR« SPRR ■>■ 



CRLL DELSPRITE«£1) 
IF SPRR<0 THEN 1480 
1300 GOTO 520 
1310 IF X-0 THEN 1110 
1320 CRLL MOTION« £1,0,0) 

1330 CRLL POSITION« £l,VZi, VSI, £2, VZ2..VS2) 
1340 IF <VS1+2#XX1 0R<VS1+2*X»255 THEN 1110 

1350 CRLL SPRITE«£3,92,16,VZ1,VS1+2*X,0,31*X>" CRLL SOUND« -50,-2,85" IF SGN«VS 
2-VSl)OSGH«X)THEN CRLL DELSPRITEC£3)" GOTO 1110 . - 
1360 CALL DELSPRITE«£3>" IF RBS« VZ1-VZ2X12 THEN 1380 

GOTO 1110 

P-P+50*C1 " CRLL PUNKTE« P)" Ci-Cl+1 " IF Cl>10 THEN 1410 

CRLL SOUND« -100,-7,0)" CRLL SOUND«- 100, -6,0)" CALL SOUND« -100, -5,0) 

CRLL C0L0R«£2,C0L«C1))" GOTO 1110 



1370 
1380 
1390 

1490 
1410 
RUNDE 



Q«2 
8 



GOSUB 780 



CRLL DELSPRITE«RLD" RUNDE*RUNDE+1 



IF RUNDE >S THEN 
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HNZSPHROPRR)" IF SPRRO THEN 1480 



GOTO 438 



1420 GOTO 470 

1430 CRLL DEUSPRITE<£3>" 0*1 :: GOSUB 780 

1440 1 CALL CÖL0R<£1.. 1)« « SPHR*SPAR~1 •• * CRLL 

1450 GOTO 989 

1 460 SKP* I NTC RND* VHLC SEGSC CPR$ , 3 , 4 ) > >- 1 84~2*SUM 

1470 IF SKP THEN 1668 ELSE 279 

1488 CRLL DELSPRITE<HLL)" STV— 1 <« CRLL CHRRSET 

1490 CRLL MÖTION<:£1,0,0,£2,0,@> 

1500 CRLL P0SITIÖN<£l,VZl,VSi,£2,VZ2,VS2)= = CRLL SPRITE<£3, 136, 10, VZ2, VS2AYZ1-V 

ZZV2/CVS1-VS2V2) 

1510 FOR 1*1 TO 2 

1520 FOR K*l TD 2 

1530 CRLL SÖUNDC -100. ~7, I*K) 

CRLL PflTTERNC £2 , C< K+2 > , £3 , C< K+4 ) > 

JO VST< 1 , X , Y ) = » ' CRLL MOT 1 ÜN< £4 / - Y*6 , X*S ) 
1560 CRLL C0XNU£1,£2,11+R,8T1)= > CRLL C0INC-r.£l,£3, 18,ST2> 
1430 

1570 NEXT K 
1580 NEXT I 



1540 
1550 CRLL 



IF ST1 OR ST2 THEN 



CRLL MOT I ONf. £ 1 , , ) ' '■ GOTO 1 800 



1590 CRLL DELSPRIT£<£3)< 

1600 ON BREAK NEXT 

1610 CRLL SCREEN<16>" CRLL CLEHR 

1620 CRLL SOUND< -1000, 1000,0,998,0, 1002,0 )= • GOTO 1629 

1630 8UB BIM 

1640 CRLL riOTION<£l,0,0,£4,0,0,£5,0,0,£6,6,0>' • CRLL DELSPRITE<£2) 

1650 FOR 1*0 TO 30 •■ CRLL SÜUNDC -100,523, 1,525, 1,521, I)« = NEXT I 

1660 SUBEHD 

1670 8UB MEXTR 

1680 CRLL MÖTIOM£1,0,0,£4,0,0,£5,0,0,£6,0,0>< • CRLL DELSFRITE<£2-> 

1690 FGR 1=30 TO STEP -2 

= ■ CRLL SOUNDC -190, -6 , I ) ' 



CRLL CHRR< I , CS ) ■• NEXT I 



1700 CRLL SOUNPO100,~7,I> 

L SOUND<»100,-6, 1 ■>■'• NEXT I 

1710 SUBEHD 

1720 SUB MINICKHR 

1730 RESTORE 2240 

1740 FÖR 1*32 TO 95 •> •• RERD CS 

1750 SUBEHD 

1760 SUB RNZSPRR(SPRR) 

1 770 CRLL HCHRR< 1,3,32,15) 

1780 IF SPfiROB THEN SUBEXIT 

1790 CRLL HCHRR<i,3,59,SPRR> 

1S00 8UBEND 

1810 SUB PUNKTE<P) 

1820 DISPLAY RTC 1,23 >SIZ£<6VU8ING H ££££££"'P 

1838 SÜßEND 

1 840 SUB T I TEL< COL< > , B<. ) , CPR* , STV > 

1850 DflTfl S,I,L,V,E,R,S,P,R,R 

1860 DflTH G,R..M,E,0,V,E,R 

1870 IF STV THEN RESTORE 1860 ELSE RESTORE 1850 

1880 CRLL MRGNIFYC2) 

1890 IF STV THEN 1910 

1900 CRLL HCHHRC 24, 1,32,64? 

1910 CRLL CHRRC 91," 000006 1 8 1 8 " , 64 , " 3C4299R 1 R 1 99423C " > : 

0R(I,1,8)=: HEXT I i! CRLL C0L0R<8, 11, 1 ) 

1926 IF STV THEN 2030 

1930 3*48 ■■■■ Z*17 

1940 FOR 1*1 TO 10 : i GOSUB 1990 ■ ■ RERD CS 

■)■■■• Z*2+16 *= S*S+16 '= NEXT 1 

1950 DISPLRY RT<24,5>SIZE<20)*CPR$ 

i960 CRLL FLYINGDRERM<B< >,1> 

1970 CRLL DELSPRITECflLD" CRLL IIRGNIFYO)' 

(3,8,8,4,8,8) 



CRLL SQUWX -100,-5,1)== CRL 



FOR 1*1 TO 7 



CRLL COL 



CALL SPR I TEC £ I , RSC< C$ ) , COL( I ) , Z , S 



CRLL HCHRR<24, 1,32,64)= ■ CRLL DOLOR 
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1988 GOTO 2110 

1990 CALL SPRITES!, 42, COLCU, Z, S>< = CALL 8OUHDC-100, 
2808 CALL PATTERN* £ 1 , 43 > * ■ CALL SOUNDC - 1 00 .- -6 .■ ) 
2-016 CALL PATTERN* £1, 31 )<' CALL SOUNDC -180, -5, 8 ;< 

2020 RETURN 



,0> 



2030 ZP,SP* 



!7? 



1 = 1 



READ CS 



GOSUB 1990 



CALL SPR I TEC £ I , BSC* C» > , C 



CALL SOUND« -250 > l , .. I -2 , > * > NEXT I 



CALL PflT 



CALL SOUNDC -258 ,1,0,1-2,0,1 -42 ,35== NEXT l •• C 
CALL SOUNDC -250 ,1,0 , J. -2 , , 48 1 -< 523- 1 > , 3 > •• NEX 
CALL SOUNDC -250 , I , , I -2 , , 1+42 , 3 > • ! NEXT I = ' 

CALL SOUNDC -250 , I , , 1 -2 , , 293+C 293- I > , 3 > ■ : NEXT 



2040 FÖR J-0 TO 1 

2050 FÜR K-0 TO 3 

2060 Z-ZP+J*32 » ' 8"SP+K#32 « « 

OL<I>,Z,S) 

2070 I-I+l 

2086 HEXT K 

2090 NEXT J 

2100 GOTO 1950 

211Ö SUBEND 

2120 SUB SIRENE 

2130 K*0 

2140 FÖR 1=261 TO 293 STEP 10 

TERNC£2,124> 

2150 K-K+l 

2160 FÜR 1=303 TO 523 STEP 10 

ALL RATTERN* £2, 120) 

2170 FOR 1=523 TO 491 STEP -10 

T I •■'■ CALL PATTERN* £2. 124) 

2180 FOR 1=481 TO 261 STEP -10 

CALL RATTERN* £2* 120) 

2190 IF K«3 THEN 2220 

2200 FOR 1=261 TO 293 STEP 10 

I «i CALL PATTERN* £2. 124) 
2210 GOTO 2150 
2220 SUBEND 
2230 SUB GRAPH 

2240 DATA , , ., , 0008000 1 E27335 1 F , 0B060F 1 B3E3F6 1 C 1 , 2870E0C08CD8F038 
2250 DATA CCE6B3E0C08, 80001800C233141F, 0B880F1 18E3B01C1 .■ 287086408C18F858, CCE2B3E 
0028C, 100010008022041 1 , 0A000510042A0041 

2260 DATA 2000044004 1 0005 , 048022808288 , 00 1 824242424 1 8 , 00 1 030 1010 1 038 , 90 1 8240 408 1 
03C , 00 1 824080424 1 8 , 0008 1 8283C0808 

2278 DATA 003C20388424 1 8 , 00 1 820382424 1 8 , 003C0488 1010 1 , 00 1 824 1 82424 18,001 32424 1 CO 
418,, 0070380E0E387 

2280 DATA 0101010101610101,0101010101010101, 808080808989808 , 808080808089808 . 1 03 
070F 1 E3F7FE3 , E37F3F 1 F0C0C0C3C , 80C0E0F078FCFEC7 

2298 DATA C7FEFCF83830383C , 00800000 1 83C7EE7 , E37F3F 1 F8C0E , 00008080 1 83C7EE7 , C7FEFr: 
F8307 ,201 00803030F3FFF , C 1 FF098D878 1 

2308 DATA 0488 1 8A8C0F8FCFF , 83FF90B0E08 , 8880883C830F3FFF , F3FF898888 1 8 , 8088003CC0F 
0FCFF , CFFF90 101818, 003C66C3FF7F3F0 1 

23 1 8 DATA 03860006038 1 , 883C66C3FFFEFC8 , C8603868C88 , 88887E C3FF 1 C3F0 1 , 83068606830 1 
, 00807EC3FF38FC8, C0606868C08 

2328 DATA , , , 8000001818, 00000008088000FF, FF, 80080000008000FF, FF 

2338 DATA 0000000i038?877F,FFCEFF7F,00000880C0E0E0FE,FF73FFFE,000800808803677F,F 
FF1FF7F 

2348 DATA 0080008888C0E0FE, FF8FFFFE, 000183878D8B8F07, 83828383878D1F3B, 0088C860B0 
B078E, C0C840C0E078B8DC, 88307FD8A85F2C17 

2858 DATA J.72C5FA8D87F3, 0000800080F08CFF, FF0CF888088, 088183860D8D0E07, 830302830? 
8E 1 D3B , 0080C0E8B0D0F0E , C048C8C0E0B0F8DC 

2368 DATA 00008 1 88080F30FF, FF300F000001 , 080CFE1B05FA34E8, E834FA8518FE8C, 83CFFF7F 
61333E3D, 1D1C1F0C87830381 , C1F3FFFE86CC7CBC 

2378 DATA B838F830E8C8C88, 034FFF7F73213F3E, 1D3C3F1E8F870381 , C0F2FFFECE84FC7C, 883 
CFC78F8E0C08, 000000080000003F, 7FDBDBFFFFFFFFFF 

2388 DATA 04848A0A1B1F1F95,D57F7FFFFFFFFBFB,0000081C367FFF49,7F7F77777F7FFFFF,00 
08008000088, 0088000880C0E0F , 888 1 838606834 143 
2398 DATA 673D 1 808800083 , 08C8088808 1 8BCE6 , C282C86868C88 # 88878C 1 8 1 88C878 1 , 4342663 
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CALL CHflR<I,C*)» ! NEXT l 



! .. 30080 .. 30000 .. 2 .. 295 



C 1 6 .- 000000 1 83C6642C2 , 80E030 1 8 1 83BE 

2400 RESTORE 2330 

24J.6 FÜR 1=96 TO 143 * • RERD C* '• ! 

2420 SUBEND 

2430 SUB FLYIKGDREflM<B< ),KY> 

2440 DATA 1 , 195, 261 , 329, 391 , 323, 659, 1 , 261 , 329, 1 * 293, 349, 4, 329, 391 

2450 DATA 1 , 523 > 449 , 349 , 26 1 , 220 > 1 74 , 1 , 329 , 39 1,1, 349 , 440 , 4 , 293 , 349 

2468 DRTR 1 , 195, 246, 349, 391 , 493, 698, 1 , 293, 349, 1 , 261 , 329, 2, 246, 293, 2, 293, 349 

2470 DRTR 1 , 659 , 523 , 39 1 , 329 , 26 1,195 , 6 , 26 1 , 329 

2480 DRTR 2, 30000, 30000, 30800, 30008, 30000, 30000, 1 , 30000, 329, 1 , 30000, 369, 2, 39000, 

293,2, 38800 , 440,1, 30000 , 440 

2490 DRTR 1 , 38000 , 493 , 4 , 30080 , 39 1,1,1 74 , 1 74 , 220 , 228 , 26 1 , 26 1 , 

349,2,349,448 

2588 DRTR 1 , 1 95 , 1 95 , 246 , 246 , 293 , 293 , 6 , 329 , 39 1,4,1 95 , 26 1 , 329 , 39 1 , 523 , 659 

2510 DRTR 1,195,329,1,174,293,2,164,261,2,329,391 

2528 DRTR 1,195,329,1,174,293,2,164,261,2,329,391 

2530 DRTR 1,195,329,1,174,293,2,164,261,2,329,391 

2548 DRTR 6,164,261,8 

2558 RESTORE 2448 

2560 RZ,8TV=0 

2578 RERD K « = IF K»0 THEN 2558 

2588 RERD B< 1 ),B<2X.B(3),BU>,BC5),BC6> 

2598 FOR 1*1 TO K 

2680 FOR J»l TO 6 

2610 BTV-STV+i " IF 8TV>flZ THEN RERD RZ,M1,M2 ■ * 8TV-1 

2620 CALL 8OUNDC358,Ml,l,r«!2,0,BCJ>,5>i • CRLL KEY<1,T,S>'= IF SO0 THEN BUBEKIT 

2638 NEXT J • < HEXT I 

2648 GOTO 2570 

2658 SUBEND 




Das Programm TRANSFER gehört mit zu den 
ASCII Hilfsprogrammen und erweitert dieses 
Programmpaket. 



Das Unterprogramm ASCIISET belegt 
den Zeichensatz durch das mittels des 
Programmes ASCIIDEF erstellte Co- 
defeld und erfordert immer einen ex- 
ternen Speicher. Mittels des Program- 
mes TRANSFER wird aber vom Rech- 
ner selbst ein Unterprogramm ge- 
schrieben, welches den Zeichensatz 
im Programm, also ohne externen 
Speicher, umbelegt. . 
TRANSFER ist also ein Programm, 
welches aus dem Codefeld ein Unter- 



programm schreibt. 
Dieses Unterprogramm kann dann 
mittels MERGE auf das gewünschte 
BASIC-Hauptprogramm aufgeladen 
werden. 

Das Programm TRANSFER ist nur 
mittels eines Diskettenlaufwerkes 
sinnvoll einzusetzen, da man von ei- 
nem Kassettenrecorder kein Pro- 
gramm mit MERGE aufladen kann. 
Nach dem Programmstart wird man 
nach dem entspr. Codefeld gefragt, 



100 
110 
129 
130 
140 
150 
160 
170 
180 
190 

200 



REM 

REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



***************************** 

* * 

* TRANSFER * 



* <c) 1984 by Volker- Becker * 

* * 
***************************** 
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welches mit Gerät. -Name (z. B. 
DSK1.FELD) eingegeben werden muß. 
Danach wird man nach dem Namen 
gefragt, unter welchem das Unterpro- 
gramm auf Diskette gespeichert wer- 
den soll (z. B. DSK1.PGM). 
Zuletzt kommt die Frage nach dem 
Namen des zu erstellenden Unterpro - 
grammes (z. B. ASCII). 
Der Rechner generiert jetzt das Unter- 
programm, in folgender Form: 
Das Unterprogramm belegt die Zeilen 
32000 bis 32019. In der ersten Zeile 
steht SUB und der eingegebene Name 
Zeilen 32001 bis 32016 sind DATA- 
Z eilen, in welchen der komplette he- 
xadezimale Zeichensatz abgelegt ist. 
Zeile 32017 ist die RE STORE Anwei- 
sung. 

Zeile 32018 enthält die Schleife zur 
Umbelegung des Zeichensatzes. 
In Zeile 32019 steht SUBEND. 
Das _so generierte Unterprogramm 
kann" nun mit MERGE auf ein beste- 
hendes BASIC-Programm aufgeladen 
werden und wird im Programm mit 
CALL Name (z. B. CALL ASCII) auf- 
gerufen und belegt den kompletten 
Zeichen satz um, wie er mittels 
„ASCIIDEF" generiert wurde. 
Der TI-99/4 A programmiert sich so- 
mit praktisch selbst. 
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210 ON WARN I HG NEXT 

220 DISPLAY AKi, DERASE ALL* "Erstellen eines. BASIC Unter- Programme* zur Umbele- 

9ung des Zeiehensatse-s ■ ~" 

230 ON ERROR 718 

240 DISPLAY AK 6/1) '"Name der- Eingabedatei <. Codefeld) ■"•••• ACCEPT AK ?> 14 
>BEEP<IDflTS 

259 OPEN £MDAT»,INPUT ,8EQUENTIAL, INTERNAL, FI XED 86 

260 ON ERROR 720 

270 DISPLAY AK 9, 1 '>■ "Ausgabedatei {Name unter welchem das Programm auf Dis 

k ette 9esP e i eher t werden so 1 1 ) " 

280 ACCEPT AK12,7>BEEP'0DAT$ 

290 OPEN £2 =ODAT$, OUTPUT, SEQUENTIAL, DISPLAY -VARIABLE 163 

300 ON ERROR STOP 

3iÖ DISPLAY AK 14,1 >< "UnterProgrammname • " ' = ACCEPT flTd 5. 1 >BEEP'NRME* 

320 DISPLAY ATa8,l>: "Unter-Programm, M ;NRME» •■ DISPLAY AK 19, 1 >• "wird erstellt. 

Bitte warten" 

330 PR I NT £2 = CHRSC 1 25 >&CHR*C )&CHRSC 1 6 1 >&CHR»< 200 >8,CHR« LEN< NAME* > feNflME»8<CHR*< 

) 

340 FOR 1=1 TO 16 

350 fl$*CHR»C 125 )8«CHR*C I ÄCHR»C 147 ) 

360 FOR K»l TO 7 

370 INPUT £1<G$,HEX$ 

380 FOR J«16 TO 1 STEP -1 

390 IF 3EGS<HEX$,J,nO ,, 0" THEN 420 

400 NEXT J 

416 GOTO 480 

420 HEX$=SEG$<HEX$,1,J> 

430 A»-fl»&CHR»<; 200 >kCHR$< LENC HEX» > ) 

440 FOR J»l TO LENC HEX») 

450 A**A*fcSEG*CHEX*,J,l) 

460 NEXT J 

476 IF fc>7 THEN 490 

480 A*afl*8cCHR*U79) 

490 NEXT K 

500 fl**H*8cCHR*< ) 

510 PRINT £2»fl* 

520 HEXT I 

530 DATA 125,17,148,201,125,1,0 

546 DATA 125,18,140,73,190,200,2,51,50,177,200,3,49,52,51,130,151,67,36.130,157, 
200,4,67,72,65,82 

550 DATA 183,73,179,67,36,182,130,150,73,0 

560 DATA 125,19,168,0 

570 RESTORE 530 

580 FOR 1=1 TO 3 

59ß fi$« ,M ' 

600 READ WERT 

6 1 fl»xfl»8eCHR«C WERT > 

620 IF UERT=0 THEN 630 ELSE 660 

630 PRINT £2 = ft» 

640 NEXT I 

650 PRINT £2 = CHR»< 255 )&CHR»C 255 > 

660 CLOSE £1 " CLOSE £2 

670 DISPLAY ATU8..1): "Unterprogramm ";NflME» ■■ •■ DISPLAY AK 19, 1 )< "ist erstellt un 

d kann mit MERGE "jODRT» 

680 DISPLAY AK21,l>BEEP="a.uf ein BASIC Programm aufgeladen werden." 

63® STOP 

700 END 

710 CLOSE £1 ■■ : GOTO 248 

720 CLOSE £2 ■ « GOTO 288 
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Dateiprogramme für den Commodore 64 inkl. Diskettenlaufwerk VC 1541. 



Dateiprogramme gibt es ja schon eine 
Menge, jedoch meist nur für eine geziel- 
te Anwendung. Das hier vorgestellte 
Programm gibt jedem die Möglichkeit 
sich sein individuelles Dateiprogramm 



zu erzeugen. Dabei spielt es keine Rolle, 
ob man Videofilme, Adressen oder et- 
was anderes verwalten möchte. Jeder 
Datensatz kann außer dem Datum der 
Eintragung noch bis zu 15 weitere Ein- 



.:•_' :-:£.■! '.<•' l.r:. ::■■:!" ■' ■ 

.-J •-'. u ;- : ^- <?. f. * * « e -s '-• ■• ? «' ; •■ >. ■-» •• 

e '. .. i ■■ :■*' ■ .-..■■ Li. 1 -: .■•.", • ■: ■ .- UP* (16) 

gQ pOKE 5328 1 .- 1 4 ■ POKE 53288 .. b ; U= i 

7 6 KEf! JJ 3* \ U ■■' ■ - r c * \ U > - : -.y ' ■ ■ : i fr L - !-■■ : ' j m , ■ b 1 

1 30 P R I HT " Ülffi 51 £fi T t HB fir-jk 

113 FüKi" : "Ö TU U-i 

1 20 PF: 1 H '"!' ' -■-- '^'' j "' " : '"' t= '. ~' - ! b# ' i :; 

133 NErtTI 

1 3 5 H % ::: 2 3 : V X '■■ 1 : 3 S U ß Ü 5 3 3 3 : P R I N I ü H $ 

i 33 P R i NT : PK I N T "BEFEHL - > JJH 1 



3HV 



:N" 



-•! i hiriu W* 






1333 30 Tu j. 
233Ü : 



i la 






£395 IF F'KS TUEN 166 

2133 GGSUB 23383 

2133 IF E$ : = il r! !! THEH 133 

2 i 43 11" Ei™ ' H ' i Hfc.fr i - ;'-i • i :: - ; ■ * i - jU ~ , t- ~j l ü-'M 

2 1 63 i F E* = : ' ' E " 1" H E N ü QSUB 33333 : v .ü 3? •:. F' 1 .■ 3 ', 

2173 GOTO 2123 

3333 : 



Mi-, ; 



S.JJ i 






tragungen enthalten. Die unterschied- 
lichen Kriterien werden einfach in die 
DATA-Zeile 60020 eingetragen. 
Wichtig ist, daß diese Zeile mit einem 
Komma abgeschlossen wird. 

Z. B. Adressverwaltung: 
60020 DATA Vorname, Nachname, 
Straße, Ort, Telefon, Geburtstag, Be- 
merkung. 

Z. B. Videofilme: 

60030 DATA Titel, Länge, Regisseur, 

Musik, Hauptdarsteller. 
Vor dem ersten Start muß in Zeile 80 der 
zweite G OSUB - B ef ehl entfernt werden , 
da sonst versucht wird, eine nicht vor- 
handene Datei einzuladen. Nach dem 
Starten stehen folgende Befehle zur 
Verfügung: 
(Z) Summieren 
(O) Sortieren 
(S) Suchen 
(A) Daten ausgeben 
(N) Neuer Antrag 
(Q) Daten saven 

Der Befehl „Z" summiert einen beliebi- 
gen Eintrag. 

Der Befehl „O" sortiert alphabetisch 
nach einem bestimmten Eintrag. 
Der Befehl „S" sucht ein bestimmtes 
Kriterium durch. * 
Der Befehl „A" gibt einzelne; mehrere 
oder auch alle Daten auf Drucker aus. 
Ebenfalls ist es auch möglich Adress- 
aufkleber zu drucken. 
Der Befehl „N" erlaubt einen neuen 
Eintrag. 

Der Befehl „Q" speichert die Daten auf 
Diskette. 

Als weitere Unterbefehle gibt es Edit 
zum editieren und Clear zum löschen 
von Einträgen. 

Je nach Anzahl der Kriterien dürfte die 
durchschnittliche Anzahl der Daten- 
sätze bei 400 liegen. Da jedoch mit 
mehreren Files gearbeitet werden 
kann, ist diese Zahl beliebig zu verviel- 
fachen. 

Das Programm arbeitet weitgehend mit 
Masken und Menüs, so daß eine Fehl- 
bedienung ausgeschlossen ist. 






Jü4y ir-IFU i L3> 

;33iJ J> vfiLAL' ,' 3 -;'. -'rn- u_-! .-• ,. ' i-l i'ric-N 
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388@ 
3ÜS0 

4818 

4848 
4856 

487Ö 
4886 
4Ö99 
41 00 
411© 
4128 
4138 

4150 
4160 
4170 
5800 
5818 
5928 

D'd40 

5850 

5870 
6088 

6828 
6838 
6040 
6650 
S868 
6878 
6888 
6839 
6895 
7Ö88 
7810 

7837 
7848 
73S0 



H E s:: 8 : ; v /»- 2 2 : G OS ÜB 5 8 @ 3 6 : F ÜR J =0 TO 3 S : P R I N T " ä '' ; : h 
F R "I" = Ö T -■• 1 : S 1 - V HL < D Ü$ C T .. I ) ) 

GOTO 18Ö 

REM $** SORTIEREN *$*# 

H % '•" S : V % : - 2 2 : G S Ü B 5 8 8 3 : P R I N T ' '' läS Ü R T I E R E N Hü N R C H U 

INPUT E$ 

IF VhL<E:£><8 ÜR VRE <£$>>U-1 THEN 4836 

T=VflL<E¥> 

FÜR Li=6 TU 0-2 : FÜR L£=Li+l TO 0-i 

G03UE 5088 

I F Q 1 < Q 2 T H EN 4 118 

G08ÜE 4138 

HtKT : NEKT ; GOTO 188 

REM UNTERPROGRAMME FL) ER BUBELESORT 

FOR 1"0 TU ü-1 

BB$ < LI.- I ) ::: BB$ ( L2 .- 1 ) 

DD$ < L2 .■ 1 > -DP* < I > 

NEXTI : RETURN 

Z" : l 

Q 1 $=M 1 ül : ( I) BS ( L 1 .■ T ;j , Z .- 1 ') 

I F Q 1 $ ■'-- Q2 $ T REH Z =2 + 1 : Ö T 5 @ 1 8 
Q 1 =8 = I F Q 1 $0 5S 1! "!" HEN Q 1 =flSC < Q 1 £ :< 



L L L," H fc. I ' I K R I T E R 1 U I 












Riz IÜHH 

REH #*# DRTEN HU SOEBEN &&& .. 

PRINTE &## BRTEN RUSGEBEN #$*£!" 

FOR 1-0 TO ü-i 

P R I N T ;: < u l" > i: TAB ( 9 ) 3$ < I > 

NEXT 1 

PRINT"< Fl > ALLES RUSGEBEN" 

PRINi "*C h I- : " 4 BATEN RUSGEBEN 

P R I H 7 - P R I H T "BEFEHL - - j' 1 '' } 

E $= " " : F OR 1-1 TU 1 0ö : NE'tf T 1 

IF E$~"R"THEN 8980 

I~VflL<ES? : 

ÜPEN 4.-4 

PR I N T# 4 , ! ä L I ST E V M äl DR * 

F R 1" ~ 8 T 7 3 : P R I M T # 4 .■ : ; M ! : 

PR I NT #4 .■ T .= CHR$ (. 1 6 ) li 05 " DB$ C T .* I ) 









7888 
3088 



GOTO 180 

REM i^^S RLLES RUSGEBEN *f:^ 
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Tips & Tricks 



Reset für die kleinen 
Commodore! 

Wer kennt dies nicht? 

Ich schreibe ein Programm (maschi- 
nenspr.), gebe ein paar Pok's zur Probe 
ein. Was ist nun los? ... Cursor 

futsch nichts geht mehr ... 

Eine einzige Möglichkeit bleibt offen, 
das ist der berühmte große Knopf. - 
Hauptschalter aus, Hauptschalter ein, 
nun scheint alles wieder okay zu sein! 
Rein optisch laut Bildschirm ist auch 
alles wieder in Ordnung, aber das Pro- 
gramm ist und bleibt futsch!! 
Ein selbstgepinntes Programm. Stun- 
den sitze ich nun schon daran, abge- 
speichert war es nicht, schließlich war 
das Ende des Listings doch so nahe. 
Dann kann ich ja das ganze Programm 
absaven, dacht ich mir. 
Aber Prosit - Mahlzeit, ich halte die 
Luft an, starre auf den Bildschirm vol- 
ler Entsetzen, Cursor weg - nichts 
geht mehr, mir wirds heiß, ich spüre 
wie mir das Blut in den Kopf steigt, 
meine Gehirnzellen arbeiten plötzlich 
fieberhaft. Hilfe, mein Programm ist 
futsch! Jetzt wird mir erst bewußt, das 
die ganze „Tipperitis" für die Katz war. 
Oh', wie bin ich von meinem Compu- 
ter enttäuscht. Dieser Computer, der 
mein bester Freund ist, entpuppt sich 
zum Mistkerl Nr. 1. Wie kann er mir 
so etwas antun?? Das schlimme an die- 
ser Sache ist, dies war nicht das erste- 
mal, er hat sich diese Mätzchen schon 
ein oder zweimal erlaubt. 

Nun ist aber Schluß mit den Amokläufern 

Sofort baue ich ihm eine Reset-Taste 
ein. Man braucht kein Elektroniker 
oder gar ein Computer-Mechaniker zu 
sein, um dies zu bewerkstelligen. Se- 
hen wir uns hierzu die Handbücher 
einmal an: 

VC-20 Seite 152 

CBM 64 Seite 143 




Der Commodore 64 und VC-20 geöff- 
net. - USER PORT - oben links (siehe 
Pfeil) 

Dort finden wir den für uns wichtigen 
USER-PORT. Wir brauchen Piri 1 



if!K 7 



8839 OFEN 4 .- 4 

8848 PR I NT #4 .- !i GESRMTL 1 ST E VOM r: DA* 

8859 PRINTiN 

&&SQ FÜR Fl -6 10 0--1 

8 6 7 8 F R T = 8 1 ?3 : PR I NT # 4 .. il W l > '■ H E X T T : P R I N T # 4 

8883 HEX TT 

36 9 5 F R I :: ~ 8 T ü 78 : P R I NT #4 .• " B '' ! ; : N E X T T : P R I N T # 4 
8188 CL0SE4 
8118 GOTO 109 

y 8 1 8 KEN i"i?'N^ 4 i)A i EN HUo üb.. U!:lN i^tis 

9838 PRINT'TJDREI DATEN AUSGEBEN' 5 

3841 FÜR 1=9 Tu !>-:! 

3846 P R I N T ! '' D H TEN H I NT ER E 1 H H N ü E R Ü E D R 

3866 INPUT "DATEN KENNZAHL 2 " :: .■ ]j<c 

907Ö INPUT "DATEN KENNZAHL 3 ! .■ D3 

y888 INPUT "BATEN KENNZAHL 4 !I ; B4 

9188 OPEN 4.-4 

9 Wo FQRT-0 TU 0-1 

S 1 28 PR I NT#4 , DD* < T , D 1 ~> • " !: DD* i T , D2 > 

y 1 38 PK I NT#4 .- DD* i T .- D3 ) 

£'148 PR I NT #4 .- DD* ( "i" .■ 1)4 ') 

3150 PRINT#4=PRINT#4 

yl6© NEXTT 

9170 CLOSE 4 

3188 GOTO 180 

£8880 REN #** DATENSATZ ANZEIGEN *** 

28818 REN FI «NR DES DATENSATZES 

^8828 : 

28838 PRINTE" =PRIHT 

28835 PR I NT3* < 8 > " • !i DD* <. F I .- 8 ;■ 

28848 FORI"! Tu U-I 

28858 PR I NT LEFT* < S* < I > * i 6 : : ' • TAB C i 8 > s: 

28868 HEXT I : RETÜRN 

£8878 : 

38888 REN *#* EINGABE ROUTINE #** 

38818 REN Fl -NR DES DATENSATZES 

388^8 FÜRT-l T0 U--1 

38 038 H X = 1 5 : VK r ™ T + 1 : G S Ü E 50 8 3 8 

38848 E**"": INPUT !i !l .; E* ■ I F E*O iiM THEN DD*CF 

38858 NEXTT 

30878 RETURN 

4Ü088 : 

48018 REN #*# DATEN EINLADEN #** 

48828 : 

48838 F2*~F 1 *+ ,ä .- S .< R " : OPEN 1 .. 8 .< 4 * F2* 

48840 INPUT#1.. U 

48858 FORI =9 TP U-1 



DD*<FI.. I) 



■•fc.%- 
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46060 

40070 
40880 
49090 

401Ö0 

40 U0 : 

4012Ö REM #** DfiTEH SRVEN #** 



FORT=0 TU 0-i 
INPUTtti .-DD* CT'; I> 
HEXT T,I 
CLÜSE1 
RETURN 



40130 
40148 
4S150 
40160 
40170 
48180 
40190 
49135 
402S8 
40210 
40220 
40230 

50080 
5BÖ10 

50620 
50030 
5004Ö 
50045 
50050 
50060 

510Ö0 
51010 

51020 
51030 
51040 
5105Ü 
51060 
51078 
520S0 
52010 
52020 
52036 
52040 
52058 
52060 

52070 
52080 
53890 
53010 
53020 
53040 
53050 
53060 

66000 

60005 
60006 
60007 
60018 
60020 

REflDV. 



F2$= " @ : äi +F i $+ äl , S , Kl " • QPEH 1 .. S , 4 , F2$ 

F^IMT'TÜÄiSflCHTUNG ! I ! ! ! ! ! i! 

PRIMT"MDRTEN WERDEN GESPEICHERT \ u 

PRIHT#1;Ü 

F"ORI r "0 Tu Ü""l 

FÜR ]' : ""0 Tu 0- 1 

1 F iID$ (. T J) = l!il THEN DD t- < T .■ I > ~ : i! - " 

PRINT#l,DD$C'iM) 

NEtfT T, l 

CLÜSE1 : ENI« 

Fl EM $#& CURSOR SETZEN $$& 

REM H i : ; ™- HU R I ZON T Fl L 

REN VK=: VERTIKAL 

PRINT^sä".; 

FÜR I ™0 TG VK ; PR I NT :i K" j ; HEXT 

FÜR I ™- ; 8 1" H ?i : F R I H T ' " N ! 5 ; : HEX T 
RETURN 

REM **# STICHWORT SUCHEN #3* 



I F D I) $ U' ■ O - S N$ T HE N F I ~ T : R E "i ' U R N 
T "" T + 1 : I F "f > 0- i T H EN F I : " - 1 : R E TU R N 
GOTO 51040 

REM **# ßfiTEHSFiu: LO ESCHEN *** 

FÜR T=FI TU O-l 

FÜR 1=0 TD U-l 

DD$(T.. I>" : DD$n"+l/ 1) 

HEXT I,T 

F R T = T Ü U - i : D D $ (. 1 1" > " ; Nli :NE X T T 

GOTO 100 

REM #** FILEHRMEH EINGEBEN **$ 

print !, :ji m d h t e n e r m 

PRINT" SKÜJBS" = IHPUT" FILEHRMEH !i ; Fl* 
PRINT"»" : INPUT" DATUM M ; Dfl* 



REM # IN FOLGENDE DATA-ZEILE * 
REM * GEWUEHSCHTE ARGUMENTE * 
REM * EINTRAGEN« £.38, NAHE.-,.* 

DATA 1 ■ 2.- 3.. 4.. 5 ■ 6.. 7.. 3.. 9.. IQ.* 1 1 , 12, 13.. 14.« 15.. 



(Ground) und Pin 3 (Reset). Wenn wir 
nun die beiden Pin 's kurz zusammen 
bringen, erreichen wir hierdurch ei- 
nen „Kaltstart". Da wir den Strom 




An Pin 1+3 (Pfeile ) soll gelötet wer- 
den. 

{Ein- Aus Schalter) nicht abgeschaltet 
haben, bleibt der Speicherinhalt erhal- 
ten. Ein Basic -Programm scheint zwar 
verloren gegangen zu sein, kann aber 
durch VERBIEGEN der entsprechen- 
den Zeiger wieder gerettet werden. 
Es gibt nun zwei Möglichkeiten für 
den VC-20 genau wie für den 64er! 
RESET-TASTE innen oder außen. 
Nehmen wir einmal an, Sie sind außer- 
halb der Garantiezeit und öffnen Ihr 
Gerät, so sehen Sie den User-Port 
oben links, der Computer steht also 
mit der Front zu Ihnen hin gerichtet. 
Sie zählen die Pin's von rechts nach 
links, also ganz rechts ist Pin 1, links 
daneben Pin 2 usw. Auf der Platine 
sehen wir vor jedem Pin eine kleine 
Bohrung, dort löten wir einen dünnen 
isolierten etwa 50 cm langen Kabel an 
(Telefondraht). Das gleiche machen 
wir an der Bohrung vor Pin 3. Die 
beiden freien Drahtenden löten wir 
jetzt an den Taster. 




Stecker mit Kabel und Taster 

Wenn wir uns jetzt einmal das Ober- 
teil (Tastatur) von innen betrachten, 
stellen wir fest, daß wir hier viel Platz 
und mehrere Möglichkeiten haben, 
um den Taster zu befestigen. Mein 
Vorschlag: links neben der Power- 
Kontroll-Leuchte, aber dies bleibt Ih- 
nen natürlich überlassen. 
Sie sagen: „Ich habe noch Garantie auf 
meinen Rechner!" Macht knapp die 
Hälfte, ist meine Antwort. Sie besor- 
gen sich einen Stecker für den User- 
Port und löten die beiden Drähtchen 
an den Stecker und den Taster. So 
brauchen Sie Ihr Gerät überhaupt 
nicht zu Öffnen. 
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Topprogramm 

Als Topprogramm auserwählt von der Redaktion. 




Sie sollen eine Reise zum Mond 
unternehmen, die in fünf Phasen 
gegliedert ist. In der ersten Phase 
müssen Sie Ihre Rakete unter nicht 
ganz einfachen Bedingungen mit dem 
nötigen Treibstoff für den Start und die 
Mondlandung beladen. Die zweite 
Phase dient zur eigentlichen Mond- 
landung, die vierte zum Start vom 
Mond und der Rückkehr zur Raumba- 
sis. Dazwischen soll man möglichst 
viele Uranvorkommen mit Hilfe eines 
Geigerzählers entdecken, was Phase 
drei darstellt. Den Abschluß bildet die 
Notlandung mit Hilfe eines Fallschir- 
mes auf der Erde (Phase 5). 
Nach dem Starten des Programms 
fragt der Computer, falls das Spiel 
nach dem Einschalten zum ersten Mal 
läuft, ob Sie den derzeitigen Highscore 
eingeben wollen. Wird diese Frage 
durch Drücken der J-Taste beantwor- 
tet, so müssen nacheinander die Er- 
gebnisse der einzelnen Teile einge- 
tippt werden. Teil 6 und Teil 7 stellen 
dabei den Bonus für den restlichen 
Treibstoff {Rest Fuel) und dem Schwie- 
rigkeitsgrad (Stufe) dar, deren Werte 
in der Auswertung nach jedem Spiel 
angezeigt oder auf Wunsch ausge- 
druckt werden können. 
Nun können Sie durch Drücken der J- 
bzw. N- Taste wählen, ob Sie vor je- 
dem Teilspiel die Erklärungen lesen 
wollen. Entscheiden Sie sich für N, so 
läuft das Spiel ohne Unterbrechungen. 
Schließlich muß der Schwierigkeits- 
grad eingestellt werden. Dies ge- 
schieht mit Hilfe des Joysticks. Ist die 
betreffende Zahl gewählt, den Feuer- 
knopf drücken (Port 2). 

Phase 1: 

Das Ziel des ersten Spiels besteht dar- 
in, den Stapel Tanks mit Hilfe eines 
Männchens von der linken Seite auf 
die rechte zur Rakete zu transportie- 
ren. Damit dies nicht zu einfach ist, 
sind Minen als Hindernisse auf der 
Strecke, die sich nach jedem Aufladen 
verändern und durch Überspringen 
überwunden werden können. 
Das Männchen wird durch den Joy- 
stick (Control Port 2) gelenkt. 
Durch Drücken des Joysticks nach 
vorne springt es, durch Betätigen des 
Feuerknopfs kann ein Tank auf- bzw. 
abgeladen werden, wobei die Figur un- 
beladen weiß und beladen blau ist. 
Der Spielablauf sieht also so aus: Sie 
laden einen Tank auf (Knopf drücken), 
steuern nach rechts und springen bei 
Bedarf über die Minen (Knüppel nach 
vorne), bis Sie das rechte weiße Feld 
erreicht haben, wo Sie den Tank abla- 



den können (Knopf drücken). Schließ- 
lich laufen Sie zurück (auf die Minen 
achten!) und holen den nächsten Tank. 
Dieser Vorgang wiederholt sich so oft, 
bis die Zeit (links oben) gefährlich 
nahe an 10 Sek. ist, da bis dahin das 
Betanken abgeschlossen sein muß. 
Wollen Sie also starten, gehen Sie auf 
das rechte weiße Feld und ziehen den 
Steuerknüppel nach hinten, wodurch 
die Figur mit dem Aufzug in die Rakete 
befördert wird. Ist die Zeit abgelaufen, 
hebt die Rakete ab und der Treibstoff- 
vorrat (Fuel) verringert sich kontinu- 
ierlich. Betrug er vor dem Start weni- 
ger als ca. 12 000 Liter, wird der Start- 
vorgang abgebrochen und die Rakete ■■ 
sinkt zum Boden zurück, wo sie explo- 
diert. Ansonsten beginnt Phase 2. 
Soll das Spiel nach einem Abbruch 
(Crash oder ä.) neu gestartet werden, 
genügt das Drücken irgendeiner Taste! 

Phase 2: 

Wurde am Anfang nicht N eingege- 
ben, so erscheint nun die Erklärung 
für Teil 2. Die Aufgabe besteht darin, 
eine Mondfähre auf dem Mond an ei- 
ner markierten Stelle zu landen. Dabei 
darf man weder mit der Raumbasis 
noch dessen Schutzschirm kollidie- 
ren. Außerdem sind der Seitenwind, 
der außerhalb des Schutzschirms 
wirkt, und die Landegeschwindigkeit, 
die unten gezeigt wird, zu beachten. 
Sie darf nicht über einem bestimmten 
Wert liegen, der vom Schwierigkeits- 
grad abhängt und sich folgendermaßen 
errechnet: LG = 0,1 x (10-GR) + 0,1 
(GR = Schwierigkeit), d. h. bei Schwie- 
rigkeit 10 darf die Landegeschwindig- 
keit höchstens 0,1 betragen. 
Die Landefähre wird durch den Joy- 
stick nach links bzw. rechts gesteuert, 
der Feuerknopf löst den Antrieb aus. 
Nach unten fällt die Fähre durch die 
Schwerkraft. Doch seien Sie vorsich- 
tig, sie reagiert sehr träge! Um von der 
Plattform auf der Basis starten zu kön- 
nen, muß natürlich erst etwas Schub 
gegeben werden. Aber nicht zu viel, 
da sonst der Schutzschirm berührt 
wird. 

Ist der Schwierigkeitsgrad kleiner als 
5, so ist es möglich, nach einer Kolli- 
sion oder zu harten Landung es noch 
einmal zu probieren. Andernfalls muß 
bei einer Kollision durch Drücken ir- 
gendeiner Taste von vorne begonnen 
werden. 



Phase 3: 

Dieser Teil des Spiels findet auf dem 

Mond statt. Mit einem bestimmten 




Säuerst off vorrat sollen möglichst viele 
Uranvorkommen gefunden werden. 
Als Hilfsmittel dient ein Geigerzähler, 
der sich optisch durch einen Zeiger 
(rechts im grünen Feld) und akustisch 
durch ein Knacken bemerkbar macht. 
Mit Hilfe des Männchens muß man 
nun die Oberfläche so lange abschrei- 
ten, bis der Zeiger, ausschlägt. Hat 
man die Stelle gefunden, wird sie 
durch Drücken des Feuerknopfes mar- 
kiert, man erhält 20 Lufteinheiten als 
Bonus und kann das nächste Vorkom- 
men suchen. Bevor die Lufteinheiten 
gleich Null sind, muß man aber wieder 
an der Mondfähre sein (zwischen die 
Pfeile stellen), um das Spiel zu been- 
den (Knopf drücken). 
Die Figur läßt sich wieder mit dem 
Joystick steuern, wobei man aber nur 
schräg nach oben bzw. unten und nach 
links und rechts gehen kann. Außer- 
dem sollten Sie Krater meiden, da ein 
Hineinfallen doppelten Sauerstoffver- 
brauch bewirkt. 



Phase 4: 

Ist Phase 3 beendet, erscheint das 
Spielergebnis, und durch Drücken des 
Feuerknopfes erscheint die Anleitung 
für Phase 4 bzw. beginnt sie. 
Die Aufgabe besteht darin, zur Raum- 
basis zurückzukehren. Die Steuerung 
erfolgt wie in Phase 2. Beim Landen auf 
der Plattform muß keine Landege- 
schwindigkeit eingehalten werden. 

Phase 5: 

Durch Drücken des Feuerknopfes und 
irgendeiner Taste beginnt die letzte 
Phase. Da der Hauptschirm für die 
Kapsel versagt, muß man aussteigen 
und mit dem eigenen Fallschirm lan- 
den. 

Wenn die Figur oben am Bildschirm- 
rand erscheint, kann man, solange der 
Fallschirm noch nicht geöffnet ist, 
nach links bzw. rechts (Joystick) 



36 



Computronic 



steuern, um den von rechts kommen- 
den Seitenwind auszugleichen, da 
möglichst genau auf dem weißen Feld 
gelandet werden soll. Will man den 
Fallschirm auslösen, so ist der Feuer- 
knopf zu drücken! Geschieht dies zu 
spät, so zerschellt man am Boden. 



Zum Abschluß erscheint die Auswer- 
tung mit den Ergebnissen der einzel- 
nen Teile, wobei „Rest Fuel" den Bo- 
nus für den restlichen Treibstoff und 
„Stufe" den Bonus für den Schwierig- 
keitsgrad darstellen. Soll das Ergebnis 
ausgedruckt werden, so ist die J-Ta- 




******************** 
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REH 
REM 
REM 
REM 
REM 
REM 
REM 
REM ******************** 

V=53248 : SI =54272 : HI =6144 : POKEV+21 ,0:8-0 

FOR I =S I TOS 1 +28 : PÜKE 1,0: NEXT 



PROJEKT 

BV 

ACHIM MUELLER 



10.05. 1984 



IFPEEK<2>: 



5THEN190 



ste, ansonsten 
drücken. 

Für ein neues Spiel ist eine Taste zu 
drücken. 

Punktewertung: Im allgemeinen gilt 
für das Betanken und Uransuchen: Je 
später ein Tank abgeladen bzw. Uran 
gefunden wird, desto mehr Punkte gibt 
es. Damit soll die Risikobereitschaft 
gefördert werden. Im einzelnen folgen- 
de Formeln: 

Phase 1: P = 1000/Z x 20 (Z = Zeit) 
Phase 3: P = 5000/Z x 20 

(Z = Lufteinheiten} 
Phase 2/4: P = (1,2 - SU) x 250 

(SU = Landegeschwindigkeit) 
Phase 5: P = (141 - E)/0,05 (E = Ent- 
fernung vom Landepunkt) 



FORfi«784TO720 : POKEfl, = NEXT 

PR INT "^JOLLEN SIE BEN DERZEITIGEN HIGHSCORE" :PR INT "»EINGEBEN CJ^D?" 

GETft*: IFR*=""THEN60 

IFA$="N"THEN180 

FORA* i TÜ7 = PR INT "»FUNKTE TEIL" i flj " = » ; : INPUTHSCfl) 

POKE704+B, HS<R>fiNB255 = PGKE705+B, HSCAV256 = B«B+2 : NEXT = B=0 

FORI-332T0832+33 : RERDfi : P0KEI , R : NEXT 

DATA 120, 163, 51 , 133, 1, 169,0, 133,95, 133,90, 133,38, 169,268, 133,. 96, 169,240 

DRTR133 , 09 , 169 , 224 , 1 33, 9 1 , 32 , i 9 i , 1 63 , 169 , 55 , 133 , 1 , 88 > 96 

SVS832 : POKES50, 160 : SVS832 

PÜKE56576 , PEEK < 56576 5 AND252 

PGKE53272,8 

PQKE648 , 1 92 ■ P0KE2 , 255 

PRINT"I1B1TTE WARTEN!" 

FORA« 1 T042 : RERBC : NEXT : GQ8UB50000 

B=0 : FORflsBlTO? : HS< A>sPEEKC704+B)+PEEKC 

GOTO 1000 

REM ** TEIL 1 ** 

QOSUB 12000 

CsPEEkt: 56320 ■) 

t F C CANB4 > -ÖTHENGÜSUB 1 350 : Z=2~ . 1 

IF «XANDS ) =»0ANDP<239THENQQSUBi 300 : Z*Z- . 1 

l F i CflND 1 ) «0THENGQSUB 1400 = Z=Z- . 2 : GOTO 1 060 

I F ( CflND 1 6 ':> «ÖRNHP-3 1 THENGGSUB 1 1 00 

I F (. CflND 1 6 ) -0RNBP-239THENGOSUB 1 1 50 

I F (. CRHB2 >*0flNBP«239THENSC < 1) -SC : GQTO5000 

2=2- . 1 : PR INT " «EEI T : " I NT < Z > " II sFUEL = "FU ' 

GÜTÜ1010 



'05+B)*2S6 : B=B+2 : HS*HS+HS<fl) : NEXT 



«SCORE:" SC 



IFZ<11THEN5000 



** 



100 : PÜKES 1+4,1 



REM ** TRNK AUFLADEN 

IFBE=ITHEN1050 

POKES 1+24,15: POKES I +6 , 240 : PÜKES I + 1 

P0KEH1 , 32 = 1FHK501 12THENH1-H1+40 

BE=1 

GOSUB 12300 • POKEV+42, 6 = PÜKES 1+4, 

RETURN 

REM ** TANK ABLADEN ** 

IFBE«0THEN1050 

POKES 1+24, 15 : POKES 1+6, 240 : POKES I+I , 10 : POKES 1+4, 33' 

SF» I NT i 1 000/Z*2Ö ) : SOSC+SF = FU-FU+FG 

P0KEH2 ,81: P0KEH2+DI , 6 : H2*H2-40 

POKEV+42 , 1 : BE*0 : POKES 1+4, 

RETURN 

REM ** LAUF-/SPRINGROUTINEN ** 

REM RECHTS 

FORA=2T08STEP2 : POKEK, R(A> = POKEV+6, P+R = GOSUB 1500 : NEXT : P*P+8 : RETURN 

REM LINKS 

F0Rfl*2TGGSTEF2 : POKEK # L CA > : POKEV+6, P-A = GOSUB 1500 : NEXT : P=P-8 ; RETURN 

REM SPRINGEN RECHTS 
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1400 IFPEEK(K»2iflNDP>3STHEHi45S 

1 405 I FP>38fiNDP-C23 1 THEN 1419 

1406 RETURN 

1418 FÜRA*2TQ8STEP2 : PÜKEK.. RCfl) : PGKEV+6, P+R*2 : POKEV+7, Q-GK A) : GÜSUB1588 

1 420 HEXT = P=P+ 1 6 = RETURN 

1449 REN SPRINGEN LINKS 

1 4S9 FGRR=2TÜ8STEP2 : POKEK , L < Fl > = PGKEV+6 , P-A#2 = POKEV+7 , Q-Q < A ) = GOSUB 1 500 

1 4SS HEXT = P-P- 1 6 = RETURN 

1499 REM TON LRUFEN / KOLLI SI OH? 

1 58© I FIiU~30RR=20RR=6THENRETURN 

151Ö POKES 1+ i .< 07 ; PQKES I +24 .. 1 5 = POKES I +4 , 33 : POKES I +6 , 240 = POKES I +4 , 

1515 1 FPEEK C V+3 1 ) =STHEH 1 550 

1520 RETURH 

1548 ; 

1549 REM ** RUF MINE GETRETEN ** 

1 550 I FPEEK i V+7 > -C208THEN 1 520 
1 560 I FPEEK < V+6 ) C39THEN 1 700 

1 570 PÜKEK , : POKE I NT C < ( PEEK i V+6 ) -20 ) ■ '8 > +50 1 1 2 > , 32 = POKEV+42 , 2 

1 580 POKES I +24 , 1 5 = POKES 1 + 1,10: POKES 1+6,0: POKES 1+4,0: POKES 1+5,12: POKES l +4 , 1 29 

1590 PRIHT"äMi&IrM?M*S»S-JR ENDLICH! NUN HABEN" 

16Ö0 PRINT"ÄM3IE EINE MINE GETROFFEN!" 

1610-PRINT"J(WHARi HflRi ICH GRATULIERE! " 

1628 PRINT M ÄWIIHRE PUNKTEZAHL VER-" 

1636 PR INT" AUFBELLT ZU GUNSTEN DER" 

1 648 RR I NT " »WIRKT I ON SORGENK I NB ! " = POKE 198,0 

1 650 FORW= 1 TO 1 80 : NEXT = POKEV+6 > = POKEV+7 , 

1 668 POKE 1 98 , Ö = Wfi IT 1 98 , 1 : RUN 

1698 : 

1699 REM ** IN TANKS GESPRUNGEN W 

1 700 POKES I +24 i 1 5 = POKES 1+1,10: POKES 1+6,0: PQKES 1 +4 , = POKES 1+5,14 = POKES I +4 » 1 29 
1710 FQRA-0TQ48 = PGKE53281 , 7 = F0RW«1T025 : HEXT = P0KE53281 , = FORW=i T025 : NEXT = NEXT 
1720 P0KE53281ii4:PRINT"3aJlE KANN HAN NUR SO BLöEB SEIN UND IN" 

1730 PR INT "WD IE TANKS SPRINGEN? DADURCH HABEN SIE" * 

1740 PRINTLINE EXPLOSION AUSGELOEST, DIE DIE GANZE" 

1750 PR INT "ANLAGE ZERSTOERT HAT!" 

1760 PR INT "UMWENN SIE NOCH EINMAL SPIELEN WOLLEN," 

177Ö PRINT"W1UESSEN SIE SCHON •'RUN' - EINGEBEN." 

1788 POKE V+2 1,0 

1790 END 

.1997 : 

1998 REM ** TEIL 2+4 ** 

1999 ■ 

2000 GüTüiö880:REM ERKLAERUNG 

20 1 P OKES I , 3 ■ POKES 1+1,17: POKES 1+7,3: POKES 1+8,16 

2020 POKES I +5 , 32 : POKES I +6 , 255 = POKES I + 1 2 , 32 : POKES I + 1 3 , 255 : POKES I + 1 5 , 288 

2038 POKES I +28 , 80 = POKES I + 1 3 , 1 29 = POKES I +24 , 1 5 

2Ö40 POKES 1+4,17: PQKES I + 1 1 , 1 7 : N I *200 = POKEV+3 1 , 3 

2045 I F (. PEEK < 56320 ) AND 1 6 > Ö8THEH2845 

2058 A-PEEKC 56320:- = IFFU<iTHENFU=0:GGTÜ2085 

2868 IF< AAND4>=0THENP*P-2 = FU=FU-4 

2070 IFC RANDS >*0ANDP<253THENP*P+2 : FU-FU-4 

2080 I F i RAND 1 6 ) =8THEN SU-SU- . 2 = FU=FU-28 : A~ 1 6 

288 1 I F A« 1 STHENPOKES 1 + 11,17 = POKES 1+8,7: POKES 1+1,2 = POKES I +4 , 1 29 : GQTQ2898 

2885 POKES 1 + 11,17 = POKES 1+8,16 = POKES 1 + 1,17 = POKES 1+4,17 

2898 U* I NT < RND (TI)*2)=I FW* 1 AHDW I -C245THENUI I *W I + 1 • POKES I + i 5 , U I : G0T02 1 08 

2095 I FW I >99THEN W I =W I - 1 @ : POKES I + 1 5 , WI 

2 1 88 SU«SU+ . 85 : Q-Ü+SU : I FQOSTHEN2 1 1 8 

2105 W=INT<RND<TI)*3)=P=P-W 

2118 POKEV+18,P:POKEV+11,Q 

2115 PR 1 NT " I3HÜEHE : " 205- 1 NT i 9. > " II " = PR I NT " TV TAB (12)" 8SPEED : " I NT < SU* 1 8+ . 5 ) / 1 " U 

2116 PR I NT " H" TAB < 25 ) " 3FIJEL = " FU " II m" 
2 1 20 X FPEEK C V+3 1 ) =320RGK 1 8THEN2588 

2125 IFDU=2ANDPEEKc: V+ 1 1 >«S9fiNDP< 158THEN2158 

2138 IFQ-C205THEN2858 

2 1 48 I F I NT C SU* 1 8+ . 5 ) / 1 0>LGTHEN2508 

2145 IFBU-2THEN2058 

2148 : 

2149 REM ** MONDLANDUNG ERFOLGREICH ** 
2158 POKESI + U,0:POKESI+18,0:FORA=1TO5 

2 1 68 PR I NT " mmmMW[WM(.QmHKT !' " = FORW= 1 TO400 : HEXT : POKES 1 + 1,18 = POKES 1+4,17 

2 1 78 pr 1 nt " 'mmmmmnt.omftKT i " = forw» 1 TO400 = next = pokes i +4 , = next 
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2180 PRIUT" ■®fiMWMfiMWM 

2 1 85 I FDU=2THEN2650 

219Ö PRlNT'TTMDflS HABEN SIE HUEBSCH GEMACHT. SIE ER-" 

2 1 95 I FSU=ÖTHEN8F<3080 = GOTÜ2200 

2 1 9? SF= I NT ( < i . 2- 1 NT C SU* 1 88- . 5 ) / 1 00 > #2500 > 

220Ö PR INT" »HALTEN FUER BIESE GELUNGENE LANDUNG" 

2205 FR I NT " EWU" SF " PUNKTE s*. GRRTUL I ERE ! " 

22 1 Ö SC: -:: 2 ) =3F : SOSC+SC C 2 ) : FR I NT " MDflM I T HABEN S I E NUN " ; SC J " PUNKTE . " 

22 1 5 PR I NT " J«KH I GHSCORE : " HS < 2 ) " PUNKTE " 

2220 PR INT" »»WEITER: KNOPF BRUECKEN!" 

2230 GOSUB 15000 

2248 GOSUB3000 ; REM TEILS 

2298 : 

2299 REM ** TEIL 4 ** 

2300 1FUH-1THEN2335 

2305 PR1NT"!3KKNUN MUESSEN SIE WIEDER ZUR RfiUMBRSIS ZU-" 
2310 PRINT"RUECKKEHREN. SEIEN SIE REUSSERST VOR-" 
2320 PRINT"MSICHTIG. JEDE BERÜEHRUNG LGEST UNWEIGER-" 
2330 PRINT"LICH EINE EXPLOSION AUS." 
2335 PRINT-EBDAiElTER: KNOPF BRUECKEN" 
2348 GOSUB 15000 

2350 PGKEV+2 1 , 33 = POKEV+ 1 1 , 205 : POKEV+ 18,176 
2355 P=l?6:iaa205:BUa2 
2360 POKE53280, 1 1 : PQKE532SI , 1 1 : GOTO 101 80 

2498 : 

2499 REM ** EXPLOSION: RÄUMERS IS ** 

2500 POKES 1+11,0= pQKES 1+18,0 

2505 POKES 1+24,15: POKES 1+1,10: PQKES 1+6,0: POKES I +4 , = POKES 1+5,14: PQKES 1+4,129 
25 1 1 FFUO0ORQ> 1 50THEN2550 

2S2S FÜR fls0TO40 = P0KE5328 1 , 7 : FÜR W= 1 T02S = NEXT = P0KE5328 1 , = FOR W= 1 T025 : NEXT : NEXT 
2530 PR INT" 3« IE UNGLUECKL ICHER! SIE SIND MIT DER" :POKEV+21 , 
2532 PRINT":«?flUMBfiSIS KOLLI BIERT UNB HABEN EINE GAR" 

2535 PRINr'MFUERCHTERLICHE EXPLOSION flUSGELOEST. " 

2536 PRINT"*BIE HABEN ZWAR UEBERLEBT, BOCH SCHWEBEN" 
253? PR INT "»HILFLOS IN BEN WEITEN BES ALLS. " = POKE53280, 1 1 =P0KE53281 , 11 

2538 PR INT "MICH SCHAETZE IN WENIGEN MINUTEN GEHT" 

2539 PRIKP'MIHNEN DER SAUERSTOFF AUS. SIE TUN MIR" 

2540 PR INT" BRICHT IG LEIB» HAR, HAß!" 

254 1 IFGR-C6THENP0KE 1 98 j : WA I T 1 98 , 1 : RUN 

2542 PR INT "MÜRBER SIE HABEN GLUECK. ES KOMMT EINE" 

2543 PRIHT"MQUTE FEE VORBEI UND LflESST SIE ES MIT" :PRINT"M2000 PUNKTEN WENIGER"; 

2544 PR INT "NOCH EINMAL PRO-" :pR INT" MEIEREN! BKNQPF BRUECKEN!" 

2545 GOSUB 15000 

2546 SC*SC-20S0 : IFI)U*2THEN2350 
254? FU*FVM3OTO10i?0 

2548 : 

2549 REM ** EXPLOSION FAEHRE ** 

2550 POKE50173, : FÖRW=1TO380 : NEXT : PGKEV+2 1 , 1 : P0KE5S173, 26 
2555 IFFUO0THEN2S00 

2560 PRim"ttmsmmmi£ faehre ist ja wie eine bombe einge-" 

2570 PR INT" SCHLAGEN. NA JA, ICH WILL JA NICHT SO" 
2580 PRINT"MSEIN. SIE DUERFEN ES NOCH EINMAL PRO-" 
2590 PR INT "MBIEREN. ALLERDINGS MUSS ICH IHNEN 20S0" 
.2593 PR INT "PUNKTE ABZIEHEN. KNOPF BRUECKEN! " :SC=SC-2000 

2595 GOSUB 15000 

2596 IFDU*2THEN2350 

2597 FU=FV= GOTO 10170 

2598 : 

2599 REM *# TREIBSTOFFMANGEL *# 
2608 POKEV+21,1 

2610 ?kim n '^mmmMmtimr ihnen wohl der Treibstoff, ausge-" 

2620 PRINT M M3flNGEN? WIE SCHABE! TJA, SIE HABEN EBEN" 
2630 PRINT"MAM ANFANG ZU WENIG MIT AUF BIE REISE GE-" 
2640 PRINT"NOMMEN! AM BESTEN BEGINNEN SIE NOCH" 

2645 PR INT "iE IN MAL VON VORN!" 

2646 POKE 1 98 , = WA I T 1 98 * 1 : RUN 

2648 : 

2649 REM #* BfiSISLHNBUNG ERFOLGREICH #* 

2650 PR INT "maß EHR GUT. BIESE LANDUNG WAR V0R2UEGLICH. " 
2655 IFSU=0THEN3F*3000:GOTO2670 
2660 SF~ I NT < <. 1.2-1 NT (. SU# 1 00- . 5 ) / 1 00 ) #2500 ) 
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2665 
2670 
2675 
2680 
2690 
2700 
2710 
272Ö 
2730 
2740 
275Ö 
2760 
2770 
2797 
2798 
2799 
3080 

3100 

3110 
3120 
3130 
3140 
3150 
3155 
3160 
3165 
3170 
31S0 
3185 
3190 
3195 
3199 
3280 
3210 
3243 
3249 
3250 
3260 
3270 
3275 
3280 
3285 
3287 
3290 
3295 
3298 
3299 
3380 
3305 
3310 
3315 
3320 
3325 
3330 
3397 
3398 
3399 
3400 
3410 
3420 
3430 
.3435 
3440 
3445 
344S 
3449 
3450 
3455 



PRINT"SIE BRINGT IHNEN»' ;SFJ "PUNKTE «IN." 

SOSC+SF : PR I NT " MDflM I T HABEN S I E " i SC i " PUNKTE . " = SC < 4 ) =SF 

PR I NT " »EH I GHSCORE • " HS < 4 > " PUNKTE " 

PRINT"MBWEITER: KNOPF DRUECKEN" 

GOSUE 15000 

PRim »immitmmm sie die Mission erfuellt haben 

PRINT M DUERFEN SIE NUN DIE RUECKREISE ANTRETEN."; 

FORA* 1 TOS = PR I NT " M " : NEXT 

FORW=1TO3000:NEXT 

POKES I +4 , 1 29 • POKEV+2 1 > 49 : PGKEV+8 > 48 : POKEV+9 > 80 

FüRfl*59TO0STEP-i : POKEV+9, fi+21 = PGKEV+1 , fl : FORM* 1 TO2S0 = NEXT : NEXT 

FüRA=15TÜ0STEP-. 01 : POKES 1+24, fl : NEXT 

GOTO4000 

REM ** TEIL 3 ** 

GOTO 11000= REH ERKLAERUNG 

f>PEEK C 56320 > : !Fi>127THEN3i00 

I F < CR HD 1 > =0THENGOSUE3500 

I F i CAND2 > «0THENGOSUB3550 

T F C CANB8 > =0ANBP<24STHENGQSUB 1 300 

I F (. CfiND4 > *0ANBF>23THENGOSUB 1 350 

I F ( CfiND 1 6 ) »0THEN3300 

I F i CflNL 1 6 ) S0THEN3450 

02sQ2-L = PR I NT " XsSßM u TAB C 34 > " 02 " = PR I NT " MSsf ' TAB < 32 > I NT (. 02 ') " SI " 

IFOa<lTHEN3400 

X= I NT C C P-23 V8 > = V- I NT < < Q-36 > /3 > : X 1 ~X-6 = X2=X+6 : V 1 =V-6 = V2»V+b 

IFUX<X2ANDUX>X1 flNDUV<V2HNDUV>V 1 THEN3200 

POKES 1+7, 36 

1 FPEEKa 49 1 52+X+40*V > >65THEN3250 

GOTO3100 

REM ENTFERNUNG DES URANS 

EX=RBS«::X-UX;:. :EV=RBS(V-UV) :E=INT<SQR<EX#EX+EV#EV) + .5> : IFE>6THENE~6 

POKES 1 , 36* i 7~E > : PR I NTTflB < 32 > " ÄKMM" A* C 6-E ) : GOT03 1 90 

REM * 
POKES 
PÜKEV 
PRINT 
PRINT 
PRINT 
PRINT 
GOSUE 
P*1S1 
GOT01 



* IN KRATER GEFALLEN ** 

1+4,17: FORA« 1 00TO0STEP- 1 : POKES I + 1 , A : NEXT : POKES I +4 , 

+21,0: RR I NT " 333 I E ■ S I ND IN EI NEU KRATER GEFALLEN UND ' 

" »HABEN SICH DEN FUSS 'VERSTAUCHT. DESHALB" 

"VERBRAUCHEN SIE VON NUN AN DOPPELT SO" 

"WIEL SAUERSTOFF! " = U=L*2 

" »WEITER: KNOPF DRUECKEN" 

150Ö0 

: Q=140 = POKEV+6, P : POKEV+7, Q : POKEV+2 1 , 40 

1438 



REM M URAN GEFUNDEN ** 

I FXOUX0RVOUVTHEN3 1 55 

POKES 1+4, 17 = FORA=0TO 1 00 : POKES 1+ 1 , A = NEXT 

FORA« 1 00TO0STEP- 1 = POKES 1+1 , A = NEXT = POKES 1+4 , = URMJR+ 1 : 02=02+20 

SF- 1 N T C 5000/02*20 ) : SC i 3 > -SC < 3 > +SF 

pr i nt " mmmmmmr tab c 33 > " sshjr an " = pr i nt " »msr t ab < 33 > ur " 11 " 

PR I NT " W TAB < 32 > " SWSCORE " : PR I NT " »WS" TAB < 32 > SC < 3) " IS " 
Pi>49 152+40*UV+UX : POKEPO, 65 : PÜKEDI+PÜ, 7 : G0T01 1500 



REM ** KEIN SAUERSTOFF ** 

PRINT" ITT JA, IHNEN IST WOHL DER SAUERSTOFF AUS-" 

PRINT "«GEGANGEN. ICH WUENSCHE IHNEN FROEHLICHES" 

PRINT" ERSTICKEN! DAMIT IST DIESES SPIEL FUER" 

PRINT "MS IE BEENDET." 

POKES 1+4, 33 : FÜRA=200TO20STEP-5 = FGRB«RTOA-20STEP~i : POKESI + 1 , B = NEXT 

FORB=A-20TOfi : POKESI+i , B = NEXT : NEXT : POKESI+4 , 

POKE 1 98 , 6 : WA I T 1 98 , 1 : RUN 



REM ** URANSUCHEN BEENDET ** 

I FP< 1 1 SORP> 1 550RGO 1 40THEN3 1 00 

POKEV+2 1,0: POKES I +4 , = PR I NT " HSÜK ! AUSGEZE I CHNET i " ; UR : " URANVÜR- 
3460 PRINT "»KOMMEN SIND NICHT SCHLECHT. SIE BRINGEN" 
3465 SC*SC+SC<3> 
3470 PRINT "MHNENB" SC <3) "PUNKTES. DAMIT HABEN SIE" 
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3486 
3496 
3495 
3498 
3439 
3509 
3502 
3505 
3510 
3526 
3530 
3535 
3540 
3556 
3552 
3555 
3560 
3570 
3580 
3585 
3590 
3998 
3999 
4068 
41@0 
4110 
4120 
4136 
4148 
4150 
4168 
4178 
4186 
4196 
4198 
4199 
4200 
4210 
4298 
4299 
4300 
4316 
4320 
4338 
4348 
4349 
4359 
4360 
4376 
4380 
4390 
4395 
4398 
4399 
4400 
4405 
441Ö 
4420 
4430 
4440 
445Ö 
4460 
4997 
4998 
4999 

5000 

5816 

5615 
5620 
5030 
504Ö 



PRINT , '0l"SC"PUNKTE. IMMERHIN!" 
PRINT"MHHIGHSCORE = "HS OS* "PUNKTE" 
FÜRR-1TO2Ö00 : NEXT : RETURN 

REM ** LAUFEN : SCHRflEG OBEN/UNTEN ** 

IFQ<45THENRETURN 

I FPEEK < K > >2 1 THEN3530 

IFP>24?THENRETURN 

F0RA=2TÖ8STEP2 • PÜKEK , R<fl > = POKEV+7 , Q-A = POKEV+6 , P+ft : GOSUB 1 500 

HEXT = P-P+8 : 0=8-8 : RETURN 

IFP-C24THEHRETURN 

FOR A=2TG8STEP2 : POKEK , L ( fl > = POKEV+7 > Q~ft = PÖKE V+6 * P-fl = GOSUB 1500 

HEXT : P*P-8 = QsQ-8 = RETURN 

IFG>227THENRETURN 

I FPEEK C K > >2 1 THEH3S8S 

IFP>247THEHRETURN 

FGRA=2TG8STEP2 : POKEK, R CA;- = PjOKEV+7 > Q+A : POKEV+6.. P+fl : GOSUB 1560 

HEXT = psp+8 ; Q~Ü+S = RETURN 

IFP<24THENRETURN 

FORA*2T08fiTEP2 : POKEK , L< A > = POKEV+7, Ö+A = POKEV+6, P-fl : GOSUB 1 590 

HEXT : P=P-8 : QsQ+8 : RETURN 

REM ## TEIL 5 ** 

GOSUB 13000 

CaPEEKC 56320) 

I F < CANB4 > «0RNBP>23THENP=P-3 

I F < CRNH8 ) -0HNÜPC2 5STHENP =P+3 

I F >:. C AHB 1 6 ;• -0THENGOSUB4208 

IFFflaiflHDBE>.4THEHBE*BE-.03:T«T-5:POKESI+l,T 

PGKE V+ 1 2 , P : PÖKE V+ 1 3 , Q 

Q=*Q+BE : IFQ>22STHEH4300 

fl=RHB<TI>#i.5:P»P-fl 

IFP<2THEN4400 

GÜTO4100 

REM ** FALLSCHIRM OEFFHEH ** 

POKES 1 + 11,0: POKES 1 +8 , 9 = POKES 1 + 13, 248 : POKES I + 1 1 , 33 

POKES0 1 74 , 27 : POKES 1+4, 1 28 ; Ffl=l = POKES I + 1 1 , 32 = RETURN 

REM ** LANDUNG GESCHAFFT ** 

IFBE>.4THEN4350 

POKES 1+4,0: POKES 1 + 11,0 = POKES I + 1 1 , 33 : POKE50 1 74 , 28 : POKES I + 1 1 , 32 

SF* I NT C Cl 4 1 -RES i P- 1 4 1 !:• ) / . SS > : SC < 5 ) =SF : SOSC+SF 

FORW=1TO3000 : HEXT = GGTO6088 

REM ** SCHIRM ZU 3PAET GEOEFFNET ** 

POKES I + 1 , 1 ■ POKES 1+6,0 = POKES 1+4,0: POKES 1+5.12 = POKES 1+4,1 29 

PGKEV+21,0:PRINT^^MBl*Mtf3 SIE HABEN DIE REISSLEINE ZU SPRET BE* 

PRIHT"M TRETIGT! BEIM AUFSCHLAG HABEN SIE SICH" 

PRINT"M DESHALB LEIBER ALLE KNOCHEN GEBROCHEN. 1 ' 

PRINT"M IHRE SCHWER ERKAEMPFTEN PUNKTEN SINB" 

PRINT"M HIERMIT ALLE VERLOREN. " -POKE1 98, = UA IT 198, 1 : RUN . 

REM ** AUSSERHALB GELANDET ** 

POKES 1+6, 240 ■ POKES 1+4, 129 = FGRA~58TO08TEP-1 : POKESI + i , A = HEXT 

pkiHvmmmmm sie sind ausserhalb des Zielgebiets in" 

PRINT"M EINEM MOOR GELANDET. 2WAR KONNTEN SIE" 

PRINT"*J GERETTET HERDEN, DOCH MUSS ICH IHNEN" 

PR I NT " » FUER D I ESE M I SSERABLE LE I STUNG 208© " = SC i 5 ) »O = SOSC-2080 



«KNOPF DRUECKEH ! " 



PRINT"M PUNKTE ABZIEHEN! 

GOSUB 15Ö00 

GOTO6000 

REM #* START <ZU TEIL i) ** 



FÖRA*S0 1 5 1 TOH2STEP-40 1 POKER , 32 = HEXT 
Z«IHT<Z> = IFZ-CUTHEN5400 

PRINT'^öetflMBMpMiSpaif^HIGHSCORE = " j HS< 1 ) ; "PUNKTE' 
POKEK ,19 = PQKE V+ 16,31= POKEV+6 , 8 
POKES I +24 ,15 = POKES I +6 , 240 = POKES 1+4,17 
FORB==0TO50STEP. 3 : POKES 1+ 1 , B = HEXT 



Computronic 



41 



5050 
506© 
5070 
5680 
5090 
5100 
5110 
512Ö 
5130 
5140 
5158 
5160 
5170 
5180 
5198 
5199 
5200 
52 10 
5215 
5220 
5239 
524S 
5250 
5260 
527Ö 
5280 
5290 
h299 
5300 
5310 
5320 
5338 
5398 
5399 
5498 
5410 
5420 
6000 
6010 
6015 
6020 
6030 
6040 
6050 
6060 
6065 

6070 
6080 
6Ö85 

6100 

6110 
6115 
6120 
6125 
6130 
6140 
6150 
6155 
6157 
6160 
6198 
6199 
6200 
6210 
622Ö 
6230 
6498 
6499 



F0RA=228Tül 23STEP-. 65 : POKEV+7 > fl = NEXT 

FORBs50TO0STEP-. 3 : P0KES1+1 , B : NEXT : P=0 

FÜRB*0TO4 • GQSUB13S0 : FORW«1TO50 : HEXT = HEXT : POKEV+21 , 23 

FORfl*2TG0STEP-l 

PRINT ,r fiBEEIT:"ft ,, ll " 

1FRM0THEN5120 

POKES 1+6, 240 : P0k:E3I+4, 33 : POKESI+1 , 10 : IFFWTHENPOKEST. + 1 > 59 

PORW=l TO30Ö = NEXT : POKES 1+4,0: FÖRW« 1 TO600 = HEXT : NEXT 

PÖKEV+8, 40 = PGKEV+9, 225 

POKES I +4 , 1 29 : POKES 1+ 1 , 2 ■ fl=225 : B=6 

A*A-B : POKEV+9 , A : FU-FU-34 = PR I NT" a"TflE< 1 > " aFUEL : " FU "II " : IFFIK0THEN5200 

GOSUB5300 : B«B+. 005 : IFfl>5THEN5158 

FÖRft= 1 5TQ0STEP- .01= POKES 1+24 , fl : NEXT 

I F VE« 1 THEHPOKE 1 98 .. : Wfl I T 1 93 , 1 = RUH 

REN ** ZU WEH IG TREIBSTOFF ** 

POKEV+2 1 , 7 : POKES I +4 , 

fl=A-B: IFfl<5THENB*-l : fl«5 

POKEV+9, fl : GOSÜB5300 : B=B-- 81 : IFA<225THEN5210 

PO KESS 1 68 , : POKES 1 69 , 1 : POKE50 1 70 , 2 

POKES 1 + 1,10: POKES 1+6,0: RQKES I +4 , 9 = POKES 1+5,14: POKES I +4 , 1 29 : POKEV+2 1 , 

FORfls0TO40 : P0KE53281 , 7 : FORW= 1TG25 : NEXT : P0KE532S1 , : F0RW-1T025 = HEXT = NEXT 

PÖKE50168, 16 ■ POKEV+21 , 

PR INT "3*1 IT SO WENIG TREIBSTOFF KANN KEINE" 

PR INT "«RAKETE STARTEN. BAS NAECHSTE MAL SOLLTEN" 

PR INT" SIE MEHR MITNEHMEN!" 

POKE 1 98 , = Hfl I T 1 98 , 1 : RUN 

REM Llp: BEWEGUNG DER RAKETE 

I FAM2THEHP0KEV+5 , fi-42 

I Ffl>84THENPÜKEV+3 , fi-84 

I F A> 1 26THENP0KE V+ 1 , fl- 1 26 

RETURN 

REM ** START VERPASST ** 

PRiHT u mmm®M«mncH fuerchte sie schlrefer" 

PR INT "»»HABEN DEN START IHRER" 

PR I NT " »»E l GENEN RAKETE VERPENNT i " : VE* 1' : GOT 05080 

PGKES3280 ,13 = P0KE5328 1,3 = POKEV+2 1,0: B=0 

PR I NT " Hi " TAB < i ) " AUSWERTUNG " : PR I NTTAB < 1 > " " 

PR 1 NT " MI HR ERGEBH I S : " TAB < 25 V H I GHSCORE : " 

PR I NT " SWTflNKEN : " SC < 1 > " PUNKTE " 

PR I NT " »LANDUNG 1 = " SC < 2 '? " PUNKTE " 

PR I NT " «URAN : " SC <. 3 ) " PUNKTE " 

PR I NT " JÜL ANDUNG2 ; " SC <. 4 :> " PUNKTE " 

PR I NT " MNOTSCH I RM = " SC < 5 > " PUNKTE " 

I FGRÖ0THENSC < 65 = 1 NT < C FUV i GR*6080 ) ) * 1 50 > = GOTO607S 

SCC6)=FU 

PR I NT " MM8REST FUEL : " SC < 6 j " PUNKTE " = SC=SC+SC <■. 6 ) 

SC < 7 > « < 1 0-GR ::- * 1 00 : SC=SC+SC i 7 > : SC < ) -SC 

PR I NT " »STUFE " 1 S-GR " = " SC < 7 > " PUNKTE " 

PR I NT " MWSENDPUNKTZAHL : " SC 

PRINT^MS'^ZS^Ö 

FORA* 1 TOS : PR I NT " m " TAB < 25 > HS < fl > " PUNKTE " : HEXT 

PR I NT " MW" TAB < 25 ) HS C 6 ) " PUNKTE " : PR I NTTAB < 25 > " M" HS \ 7 > " PUNKTE " 

PR 1 NTTAB < 25 > " AM" HS " PUNKTE»" : GOSUBS5Ö0 

IFSC-CH3THEH6150 

PR INT" SNEUER Hl GHSCORE ! " ; : GOSUBS500 : B*0 

FORfla'l T07 : POKE704+B, SC< A>AND255 = POKE705+B, SC<A>/256 : B=B+2 : HEXT 

PRINT"« S-> SÜD RUCKEN U/N}?" 

GETA* : IFA*= , '"THEN6155 

I Ffi* ~ " J " THENGOSUB 6200 

POKE 198,0= wfl I T 1 98 , 1 = RUN 



REM ** BRÜCKEN ** 
0PEN4,4 
F0RA*iT07 

PRlNT#4,"TEIL";fl; " = " . 
HEXT : CL0SE4, 4 : RETURN 

REM ** MELODIE *# 



11 .: SC tA ::'.:" PUNKTE" 
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c ?nimodweM 



6580 
6565 
651@ 
6528 
6530 
6550 
6568 
6570 
399? 
S'BSS 
9999 

10000 
18810 

18020 

10030 

1Ö04Ö 
10059 

10066 

10070 
10080 
1 0890 
10100 
10118 

101 12 

10115 

10120 

10130 

101 40 

10150 
10152 
18154 
18156 
10158 
1 8 1 66 
18165 

10170 

18188 
1 8 1 98 
18206 
10218 
18228 
10238 
10248 
10250 
18255 
10260 
18280 
10290 
1 8380 
18318 
10997 
1 0998 
10999 
1 1 068 

11005 

11018 
11828 
11830 
11848 
11850 
11860 
11878 
118Ö8 
1 1 898 
11188 
11118 
11128 
11125 
11138 
11148 
11158 



PGKES I +2 , 1 3 = PGKES I +3 , 1 5 : PGKES I +5 , 63 > POKES 1 +6 , 9 ■ RESTORF 

FÜRA=0TG33 : READB = NEKT 

R£ADtt,V,ü 

IFVs-lTHENRETURH 

POKES I + 1 .. H ■ POKES I , V = POKES I +4 , 65 = FORT=l TOB : NEXT : POKES I +4 , 8 : 00T065 10 

DATA 1 7 .. 1 03 , 258 , 2 1 , 23? , 250 , 26 .. 28 , 489 .-21.. 23? .. 1 88 , 26 , 28 , 258 > 29 .. 69 , 258 

DRTR26 , 28 , 256 , 9 , 8 .. 250 .21, 237 .. 258 .. 26 * 28 , 258 , 29 , 69 , 1 889 > 26 * 28 > 250 .0.0. 250 

DRTR-i ,-1,-1 

REM ** VORBEREITUNG TEIL 2 ** 

POKE 53280, 1 1 = P0KE53281 .11: POKEV+21 , 8 : IFUN=lTHENi8178 
PR INT" Saß IE BEWEGEN SICH NUN IM DEN WEITEN DES" 

PRINT"ÄWELTfiLLS " 

PRINT" ANA JR, WENN MAN ES GENAU NIMMT, EI GENT-" 
PRINT "#J_ ICH NUR IN DER UMLAUFBAHN UM BEN MUND." 
PRINT "»DORT HR BEN SIE RH E-INE RÄUMERS IS ANGE-" 
PRIHT"»HGCKT, VON DER AUS SIE EINE EXPEDITION" 
PR INT" »ZUM MOND UNTERNEHMEN. DAZU GIBT ES EINE" 
PR INT" »SPEZIELLE MGNDLflNBEFREHRE, DIE SIE ABER" 
RR I NT '! *M T HOECHSTE NS " LG " YW H GESCH W I HD I GKE I T " 
PR INT "ALANDEN DUERFEN! BREMSSCHUB GEBEN SIE" 
PR INT "»DURCH DEN FEUERKNOPF! NACH LINKS UND" 
PRINT "»RECHTS MIT DEM JOVSTICK. ZKNÜPF DRUECKENTT 
GOSUE 15888 5 

PRINT'TBWORSICHT ES HERRSCHT EIN MRGNETSTURM., " 
PRINT "»DER SIE NACH LINKS ABTREIBEN LAESST. " 
PR INT "MACHTEN SIE DARAUF.. DASS SIE INNERHALB" 
PR INT "SKIER MARKIERUNGEN LANDEN! «DIE BASIS" 
PR INT "»SELBST IST DURCH EINEN SCHUTZSCHIRM GE-" 
FRINT"MSCHUETZT, MIT DEM SIE ABER NICHT KOLLI-" 
PR INT "VIDIEREN DUERFEN! DASSELBE GILT FUER DIE" 
PR I NT " MB AS IS!!! MÖWEN I EL GLUECK " 
PRINT"MMBÖ START : KNOPF DRUECKEN" 
GOSUE 15888 

POKEV+21 , 33 : POKEV+1 1 , 59 = POKEV+18, 145 : P«145 : 0=59 = F 
POKEV+33 .. 14 : PGKEV+38, 1 : POKEV, 49 ■' POKEV+1 , 59 : P0KEV+ 
PRINT'TM* ~ "* - r 1" 

print"! m a ivd ss*r»3( \" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" D '~~ — 

PRINT "st. ._ ... _ ._. 

F0RX«iTG28: PRINT 1 

r'K INI f!1_^_nBo»»rf»«8i_ J -aa. 

PRINT" SU 

FORA-SI TOS 1+24 : POKER.. 8 : NEXT 

G0TG2818 

REM ** VORBEREITUNG TEIL 



'v'-FU 

1 6 .. : POKEV+23 , 8 : SU™8 



,8-JVyJMt. 






■ NEXT 



"pi 



** 



IFUN«1THEN11235 

POKE V +2 1 , 8 = P R I NT " 3*!UN BEG I NNT DIE E I GENTL I CHE AUFGABE ' 

PRINT "»DIESES PROJEKTS. SIE SOLLEN URANVORKÖM- " 

PRINT"MMEN FINDEN.. DAZU DIENT IHNEN EIN 3GEIGER-" 

PRINT"ZAEHLER - DER COMPUTERS«. ER ERZEUGT EIN" 

PRINT "KNACKEN.. DAS UMSO HO EHER IST, JE NflEHER" 

PR I NT " m I E S I CH BE I EI HEM URANLAGER BEF I NDEN 

PRINT "MOPTISCH WIRD DIESES KNACKEN DURCH EINEN" 

PRINT "»ZEIGER UNTERSTUETZT. ERST WENN DIESER" 

PRINT "»VOLL AUSSCHLflEGT, HABEN SIE ES GEFUNDEN" 

PRINT "MUND KOENNEN DEN 3FEU ERKNOPF 9| DRUECKEN! 11 

RR INT" BEACHTEN SIE ABER, DASS DIE REICHWEITE" 

PRINT "»DES OEIGERZREHLERS BEGRENZT IST!" 

PRINT H MBWEITER: KNOPF DRUECKENTT 1 

GGSUB 15808 

PRINT'^sffilE STEUERUNG ERFOLGT MIT DEM JOVSTICK!" 

PRINT"»nBEfiCHTEN SIE ABER, DASS SIE NACH SCHRAEG" 

PRINT" OBEN BZW, UNTEN STEUERN KOENNEN! 11 
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Ü16Ö 
11179 
111:30 
11 19ö 
11200 
112S5 
11210 
11220 
11230 
11235 
11248 
11250 
11260 
i i 27*0 
11289 
11290 
11410 
11420 
11430 
11440 
11450 
11468 
' 11476 
11 480 
11490 
11495 

11 5Q0 

11510 
11530 
11540 
11550 
11560 
11570 
1 1 6Ö0 
11997 
11998 
11999 
1 2060 

12010 

12020 
12030 
12040 
12Ö50 
12060 
12070 
1 2080 
12090 

12100 

12110 
12120 
12125 
12126 
12i27 
12130 
12140 
12150 
12160 
12170 
12180 
12190 
1220Ö 
12219 
12220 
1223S 
12240 
12258 
1226ß 
1227Ö 
12280 
12290 
12300 



PRINT"»a£IE KOENNEN NATUERLICH NICHT UNBEGRENZT' 
PR INT" »SUCHEN. ACHTEN SIE AUF IHREN SAUERSTOFF-' 
PR INT "VORRAT. SIE MUESSEN RUF JEDEN FALL BEI" 
PR INT "»DER RftUHFAEHRE SEIN UND BEN IFEUERKNOPFsT 
PRIW'MDRUECKEN, WENN ER SICH BEN ENDE NEIGT!" 
PR INT "»PRO URANFUHB ERHALTEN SIE ALS BELOHNUNG" 
PR INT "MEß EINHEITEN. MEIDEN SIE DIE KRATER!" 
PR I NT " MBSTflRT = KNOPF BRUECKEN ! 'TT 
OOSUB 15000 
R$<:0) = " " 
fi*Cl)= 

fl*C3)= 
fl*<4>« 



&rrrü 



ft*C5) = 

P-151 



anrrrrs 

«TTTTTS 

srrrrrrn 



GN140 : POKEV+21 , 49 = PöKEV+6., P = POKEV+7 , Q = 02=20© = POKEV+42, 1 
POKEV+10, 130 = POKEV+1 1 ., 140 : DU-3 ■ L~l ■ POKEV+31 , = POKEV+27, 
PR I NT " 3" : FORfl«0TO22 = PR I NT " SS SSS 

HEXT 

FORA- 1 TOI : GOSUB 1 1600 : PO-491 52+X+40#Y : POKEPO , 87 = NEXT 
FORA- 1 TOS : GOSUB 1 1 600 : Pi>49 1 52+K+40*Y 
POKEPO, 85 = PÜKEPÜ+1 , 73 • POKEPO+40 .• 74 : POKEPO+41 , 75 : NEKT 
P0KE49633, 30 : P0KE49689, 30 : P0KE55827, 14 = P0KE55833, 1 4 

priht a mmmmsm tt ■ fora*ito4 = pr inttrb< 12) " " : hext 
pr 1 nt " :mmmtä" tab < 33 ;■ " h i oh »■ : pr i nttab < 32 > " aaw" hs < 3 > 

GOSUB 1 1600 : UX*X : UV~V = IFPEEK<49152+UX+40#UV)O32THEN1 1500 
I FUX> 1 1 RNDUX-C 1 8ANDUV'> 1 0RNBUV-C 1 5THEN 1 1 500 

pr int " mmmsfgmm u tab c 33 :> N üurrn " = pr i nt " »ais" tab < 33 > ur " m " 

POKES 1+24 ,15= pokES 1 +2 , 243 : POKES 1+3 , 31 = POKES I , @ : POKES 1+ 1 , : POKES 
POKES I +4 , 65 : PR I NT ,s mmmffll" TAB (. 32 > " SB8ZE I GER " : PR I NT " HM» TAB < 32 > A$ 

PR I NTTRB ( 32 > " M ~ !i 

X~£i : V»0 : GOT 03 100 

X*= I NT •:: RND < T I > *28 ) + 1 : V= I NT ( RND ( T I ) #22 ) + 1 ; RETURN 



1+6,240 



REM ** VORBEREITUNG TEIL 1 ** 

pr i nt '* -mmMmmmmmmmimMmM:' 



POKE53280, 14 = P0KE53281 , 14 



in 

ILJ 



n 

L ! 



n 



I t"h} I " 



LJ 



L- f i 



BV ACHIM MUELLERai 



PRINT"a| 
PRINT"* 
PRIHT" 4 
PRIHT" al 
PRIHT "31 
PR I NT " SS 
PRINT"* 
PK i nt " sü " ' » 

POKES 1+24 , 15 : POKES 1+6, 240 : POKES 1+4, 33 

FORA=0TO78STEP5 : POKES I + 1 , A : PR I NT = NEXT 

FORR=?0TO0STEP-. 5 : POKES I + 1 , A = NEXT 

PRINT"äPlBiMBMß?l5M««:RAUCHEN SIE DIE ERKLAERUNGEN 

GETfi* : I FR** " " THEN 1 2 1 26 

I FA*~ » n " THENUN» 1 : GOTO 1 2370 

PRINT M Mg;[S[iI?M?Mf»MS!SENIiLICH IST DER GROSSE TRG GEKOMMEN!" 

PR I NT ' ' Ml HRE S ELBSTK0N8TRU I ERTE RAKETE I ST " 

PR INT" »STARTBEREIT. SIE BEGINNEN DEN COUNTDOWN" 

PR INT "MUND WOLLEN IHRE RAKETE BETANKEN." 

PR INT" »DOCH DA? IHR BOESER NACHBAR HAT AUS" 

PR INT" »RACHE FUER UNZREHLIGE SCHLAFLOSE NflECHTE" 

PR I NT ! ' < DER BAU DER RAKET E " VERL I EF N I CHT GERADE " 

PR INT "LEISE:? MINEN GELEGT. »KKNOFF DRÜECKEN*T1" 

GOSUB 1500O 

PRlNT"^SDfl SIE NUN DEN COUNTDOWN NICHT MEHR" 

PR INT" »STOPPEN KOENNEN, MUESSEN SIE LIEBER HIE" 

PR INT" MM INEN SPRINGEN, UND SO DEN TREIBSTOFF" 

PRlNT"SiZU IHRER RAKETE TRANSPORTIEREN. DIE" 

PR INT" »STEUERUNG ERFOLGT UEBER DEN JOYSTICK : " 

PRINT"MiLlNKS *- NACH LINKS GEHEN <i FELD>" 

PRINT"iRECHTS sh NACH RECHTS GEHEN <1 FELD)" 

PR INT "»OBEN sah SPRINGEN <2 FELDER)" 

PR INT "HUNTEN ah TANKEN BEENDEN UND STARTEN" 
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1231Ö 
12320 
12338 
1234Q 
12359 
123b@ 
12365 
12379 
12372 
12374 
12376 
12378 
1 2389 
12382 
12384 
12386 
12388 
12399 
124Ö0 
12420 
12430 
12446 
12456 
12460 
12510 
12550 
12555 
12560 
12565 
12578 
1 25:30 
12590 
12595 
126Ö0 
126Ö5 
12610 
12615 
12620 
1 2640 
12650 
1 2660 
12670 
126:30 
1 2690 
127813 
1 2800 
12810 
12:315 
12820 
12997 
12998 
12999 
130Ö0 
13005 

13010 

13020 
13030 
1 3040 
13050 
13060 
13070 
13030 
13090 
13180 
13105 
13110 
13120 
13130 
13135 
13140 
13150 



1 



15 
REM FARBEN 

'ji2= PÜKEV+38.-0 : 
78.. 18 

REM BLOCKS 

99 : P0KEV+3, 



REM RRK 
ZUWEIS: 
141 



PRINT "«KNOPF sah TANK AUF- BZW. ABLADEN" 

PR INT "«SAUF- BZW. ABLADEN KAHN MAN NATUERLICH" 

PRINT "»NUR AUF DEN WEISSEN FELDERN. BIS 18 SEC" 

PRINT"MWÜR DEM START MUSS DAS BETANKEN BEENDET" 

PRINT "»SEIN! ZUM STARTEN AUF DAS RECHTE WEISSE" 

PR INT "»FELD GEHEN! SCHOPF BRUECKENm" 

GOSUB 1 S0@0 

PRINT'TIS 1 2 3 4 5 6 7 8 9 10":A=55297 

P R I NT ' ' MLE I CHT SSCH W I ER I GKE I TS6R AD SSCHWE R " ■ F OR W= 1 TU 2000 - 

OPEEK < 56320 > = PGKEA , 1 

IF<CflND4?=0ANDA>55299THENPOKEAi 6 = A-A-3 

1 F < CAND8 >a0ftNDAC5S325THEHPOKEA > 6 '■ A=A+3 

I F <. C AND 1 6 '.:■ OGTHEN 1 2374 

GR=C<A-5529?V3) 

PR I NT " HMSCHH I ER I GKE ITSGRAD : " GR 

GR-10-GR 

FORA*1TO2000 : NEXT 

L.6-0 . 1 *GR+0 .. 1 : FG-GR* 1 50+ 1 000 

priht u :imimmm" } 

FORA=0TO15 = PRINTTABC2?)" Wm " ■ NEXT 

PRINTTABc:27>" IS1 "~ ■" :pRINTTAB<27V S S" 

FRINTTABC27)" 3 «TT 

PRINT ll '^MBMBteM ,, TAB'::3i ) 'VW 

P R I NT " MMW" T AB < 3 1 > " mcm u 

POKE501 13, 100 : P0KE56257, 1 : POKE50139, 100 : P0KE56283, 

FORA-49432TO501 12STEP40 = PGKEA, 81 = POKEA+DI , 6 : HEXT 

Hl"49432:H2=50i51 

POKEV+39, 15 = POKEV+48, 15 = PÜKEV+41 , 

PGKEV+42 . 1 = PÜKEV+43, 7 = PGKEV+44, 1 = 

POKEV+2 1 ,31: RFM £ \ NSCHALTEN 

POKEV+23 , 23 = P0KEV+2S , 7 : FGKEV+37 

POKE50 ! 68 , 1 6 : POKE50 1 69 ,17- POKE50 1 

PGKE501 7 1,19: PGKE50 1 72 , 25 = PGKE50 1 73 , 26 

POKEV+ I 6 , 23 : POKEV+27 > 24 

PGKEV, 40 : POKEV+2 , 40 = POKEV+4 , 40 : POKEV+i 

PGKEV+5, lS3-"P0KEV+6, 31 :PGKEV+7, 228 

Q=228:p*31:K«5017i 

PGKEV +31 .= : PÖKE53288, 5. 

R ( 2 ') ~ 20 : R >■. 4 ') ~2 i ; R ■' 6 > =20 : R < S ) ~ 1 9 

Q < 2 ) =2 : G < 4 j =4 : Q i. S > -2 : Q ( 8 ) =0 
P R I NT " 99HDS _— *«Ö 

Pft INT" 
PRINT 

PR I NT " " : 2- 1 20 = RETURN 

F0RB=5S 1 1 5TG 50 1 36 : A» I NT < RND C i > *3 ) : I FA= 1 THEN 1 28 1 5 
I FO0THEHPOKEB, 46 : PGKEE+Ifl , : Ol : GOTO 12820 
C™0:pOKEB,32 
HEXT = RETURN 

REM VORBEREITUNG TEIL 5 

POKEV+2 1 , : PR I NT " 3" .: : I FUN« 1 THEHPOKE 1 98 , 1 = GOTO 1 3 1 40 

PRINT"*: IE BEFINDEN SICH NUN IM LANDEANFLUG " 

PRINT "»EUR ERDE. EIS JETZT LAEUFT ALLES PLAN-" 

PRINT"»! AESSIG. ZUM AUSLGESEN DES BREMSFALL.-" 

P R I NT " fclSCH I RMS KNOPF DR! JECKEN ! " 

I F ( PEEK < 56326 > AN D 1 6 ) OGTHEN 1 3840 

PRINT "MODER BREMSFALLSCHIRM OEFFNET SICH NICHT!" 

PRINT "SB IE MUESSEH AUSSTEIGEN UND .MIT IHREM" 

PR I NT " MNOTF ALLSCH I RM LANDEN ! " 

PRINT"3SBURCH DEN JOVSTICK KOENNEN SIE W AEHREND" 

PRINT "ADES FflLLENS OHNE FALLSCHIRM <!) NACH" 

PRINT" »LINKS BZW. RECHTS LENKEN, DIE REISSLEINE" . 

PR INT "BETAET IGEN SIE DURCH DEN aFEUERKNOPFEL " 

PRINT'VPJDA LEICHTER SEITENWIND HERRSCHT, SOLLTEN" 

PRINT"SIE ABER VORHER NACH RECHTS STEUERN, UM" 

P R I NT '■ W I E MARK I ERUNG i WE I S S ) E I N 1 GERMASSEN ZU " 

PRiNT"3SEU TREFFEN." 

PRINT"MBWENN SIE ZUM RUSSTEIGEN" 

PRINT" MBERE I T S I ND , TASTE DRUECKEN ! m" = POKE 1 98 , 8 



ti t 
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13370 
13386 
13390 
13395 
13400 
1341Ö 
13420 
1343Ö 
13446 
13608 
1 5800 
15910 
1 5820 
49999 
50806 

50010 

596 2Ö 
58Ö30 
58079 
59080 
50096 
58100 

50110 

50119 
50126 
58130 
5814G 
5015Ö 
56159 
58160 
.58170 
58180 
58 196 
58199 
58288 
5Ö210 
50229 
50230 
58248 
50259 
5026Ö 
58270 
58279 
582 80 
50290 
58309 
583 1 
5032Ö 
50329 
5833Ö 
50335 
50339 
58340 
58358 
50359 
58360 
50370 
5038© 
50389 
5839Ö 
50460 
50410 
58419 
5842Ö 



PÜK ES I +24 , 1 5 : POKES I +6 , 24 8 : POKES I +4 .. 33 

FÖRB-0TG99 : FORR-58TO150 : POKES 1+1, fl : HEXT 

GETft* : IFR**" "THENHEXT 

B=»99 

PRIHT U LT : POKE 53288, 2 : P0KE53281 > 14 = SOSUB 12670 : BE-2 : Ffl»0 

POKEV+21 j 64 = P0KE59174, 28 : POKEV+45 , 8 

POKEV+27 , 64 : P~ 1 4 1 : Q=0 

pr i m - H :».MiM«tfB.M^ .«— . 



POKES I +4 , 6 : POKES I +6 , : POKES I + i , 255 : POKES I +S , 1 75 : POKES I +4 , 1 29 

POKES I +24 ,15: 1=2515 : RETURN 

FORGG=iTO3088 : HEXT 

I F ( PEEK i 36320 ) AND i 6 ) O0THEN 15819 

RETURH 

REM #* SPRITES ** 

FORfis5017STO5 1871 : POKER j 6 = HEXT 

FORfl»9TO 1 2 : RE ADR 1 , R2 

FÖR I *=A 1TÜA2 = READB = POKE I , E = HEXT = NEXT 

RETURN 

REM RAKETENSPITZE 

BAT A5Ö 1 76 .■ 58238 , 6 , 48 ,0,0 , 236 , 6 ,3,171,9 , 3,17 1 , , 3 , 1 7 1 , 8 , 3 , 1 7 1 , , 1 4 , 1 78 , 1 92 

DfiTflSS , 1 70 ,176 , 59 , 1 37 , 1 76 , 59 

DATA 1 87 , 1 76 ,59,1 87 , 1 76 , 59 , 1 37 , 1 76 , 59 , 1 87 ., 1 76 , 59 , 1 87 , 1 76 , 58 , 1 78 , 1 76 , 234 

DftTfl 1 78 , 1 72 , 234 , i 70 , i 72 , 234 , 1 70 , 1 72 , 234 , 1 79 , 1 72 , 234 , 1 70 , 1 72 , 234 , 1 70 , 1 72 

REM RAKETE MITTELTEIL 

D ATR58240 , 58382 * 250 , 1 78 , 1 SS .■ 238 , 1 78 , 236 , 235 , 255 , 1 72 , 234 , 178,1 72 , 234 , 1 79 

DATA 1 72 , 255 , 255 , 252 , 2 1 3 , 85 , 92 , 255 , 255 , 252 , 2 1 3 , 85 , 92 , 255 , 255 , 252 , 2 1 3 , 85 , 92 

DATR255 , 255 , 252 , 2 1 3 , 85 , 92 , 255 , 255 , 252 , 2 1 3 , 85 , 92 , 255 , 255 , 252 , 234 , 1 70 , 1 72 

DAT A234 , 1 70 , 1 72 , 258 , 1 78 , 1 88 , 238 , 1 70 , 236 , 235 , 255 , 1 72 

REM RAKETE UNTERTEIL 

DRTR50304 .■ 58366 , 234 , 1 78 , 1 72 , 234 , 1 70 , 1 72 , 234 , 1 70 , 1 72 , 234 , 1 78 , 1 72 , 235 

DATA 171,1 72 , 235 ,171,1 72 , 235 ,171,1 72 , 235 , 1 7 1 , 1 72 , 235 ,171,1 72 , 235 ,171 , 1 72 

DATA235 ,171,1 72 , 235 , 1 7 1 , 1 72 , 235 , 1 7 1 , i 72 , 235 , 1 71,1 72 , 239 , 239 , 236 

BRTR48 , 48 .. 48 , 48 , 48 , 48 , 22© , 228 , 228 , 220 , 228 , 228 , 228 , 220 , 220 , 220 > 220 , 228 

REM MAHN R PHASE I 

DR TR5S392 ,58428,12,8,8,12 , , 0,8 

DR TflS , , 28 , , , 28 , 8 , , 28 .• 9 , , 28 , 8 , 8 .. 28 ,0,0 , 1 2 .■ @ , 9,12,0 , 8,12 , 6 .<. , 1 2 , 8,0,1 2 

REM MANN R PHASE II 

DATR58456 .• 58492 , 1 2 , 8 , 8 , 1 2 , 8 ,8,3 , 8 .« 8 

DRTR28 , 8 . « 60 , 8 , 8 . 62 . 8 , 8.. 28,' , . 28 , ■ . 1 2 • 8 . . 1 ? . 8 , 8 , 1 8 , PI , . 10 , , Q, i 8 

REM MAHN R PHASE III 

BATA5ÖS20 , 58556 , 1 2 , 8 ,8,12, 8 ,9,8 , 8 

DR TR8 , 60 , 1 28 ,6,95,8,0,156,8,0,28,0 , 9 , 28 , 8 , , 1 2 , , 8 .. 1 8 , 8 , 8 , 9 , 8 , 8 , 17,8 , 8 , 33 

REM MAHN L PHASE I 

DRTR50584 .= 58628 , 24 , 8 , 8 , 24 , 8,8, 8 , 8 . .. 28 , 8 , 8 , 28 , , , ?8 , , , 28 , 8 , 8 . 28 .8,0 

DRTR1 2 ,0,0,1 2 , , 8, 12 , 0, 0,12, 8, 0,12 

REM MANN L PHASE II 

DR TA58648 , 50684 , 48 , 8 , 8 , 48 , > 8 ,• 16,8,0, 56 , ,» , 252 , 9 , , 60 , 8 -• 9 , 56 , 8 , 8 , 56 , , 6 

DATR24 , , , 24 , 8 , , 48 , , .. 40 , , , 36 

REM HAHN L PHASE III 

DRTR507 1 2 .= 58748 , 24 , 8 , 8 , 24 , 6 , Ö , 8 , 8 , 8 , 1 58 , 8 , 8 , 1 25 , 8 , , 28 , 1 28 , 8 , 28 , 8 , 8 

DRTR28 , , .. 1 2 , , 8 , 28 , 8 , , 36 , 6 , 8 , 34 . , 8 , 33 

REM FEUER 

DATR58752 , 58775 , 1 28 , 1 28 , 1 28 , 248 , 248 , 252 , 252 , 252 , 252 , 252 , 252 , 252 , 1 24 , 1 24 

BRTR 1 28 , 1 28 , 1 28 , 1 28 , 48 , 48 , 48 , 32 , 16,16 

REM MÜHBFAEHRE 

DRTR50S28 , 58878 , 2 , 8 , , 2 , S , 8 , 2 , , @ , 20 ,16.. 9 , 8 , 1 6 - 8 , 2 1 , 255 , 8 , 226 , 8 , 1 23 

DRTR4 , 56 , 64 , 4 , 68 , 64 , 4 , 68 , 64 , 2 , 68 , 1 28 , 1 , €3 .• , 2 , 254 , 1 28 , 4 . 8 , 64 , :": , 8 - 32 

DRTR8,0,32,28,0,112 

REM F RLLSCH I RMSPR I N6ER 

BRTA5.0838 , 58938 , 7 , 1 92 , 8 , 3 1 , 248 , 8 , 63 , 248 , 8 , 1 27 , 252 , , 255 , 254 , 8 , 255 , 254 , 8 

DATA 1 28 , 2 , ö , 64 , 4 , 8 , 64 , 4 , 3 .. 32 , 8 , 8 , 32 , 8 ,9,16,16 , , 1 6 , 16 .■ , 8 , 32 , 8 , 8 , 32 , 8 

DRTR4 , 64 , , 5 , 64 , , 3 , 1 28 , , 1 , ö , ,2,1 28 

REM SPRINGER OHNE SCHIRM 

DATR50995 , 5 1 865 ,1,8,8,3,123,0,1,8,8,2,1 28 
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In diesem Spiel muß man mit seiner Spielfi- 
gur in einer dreistöckigen Höhle Diamanten 
aufsammeln. Als Behinderung stehen Fels- 
brocken und Löcher im Weg, 



durch welche man fällt, wenn man 
nicht darüberspringt. Fällt man durch 
ein Loch im 3. und 2. Stock, landet 
man ein Stockwerk tiefer und verliert 
eine Figur. Fällt man durch ein Loch 
im 1. Stock, ist das Spiel vorbei. Die 
Felsbrocken kann man mit seiner Hak- 
ke „abbauen" indem man von der 
rechten Seite 10 mal durch Druck auf 
den Knopf von Paddle 1 auf den Stein 
einschlägt. 

Die Diamanten sammelt man durch 
Darüberlaufen ebenfalls nur von der 
rechten Seite. Ab und zu steigen Luft- 
ballons in die Luft. Hält man sich dar- 
an fest, indem man sich an die Stelle 



setzt, wo der Luftballon aufsteigt, wird 
man ins nächste Stockwerk befördert. 
Aber Vorsicht! Manchmal passiert es, 
daß der Ballaon während dem Flug 
platzt. Dann fällt man in den 1. Stock 
und verliert eine Spielfigur. 
Gesteuert werden kann mit Paddle O, 
wobei man jedoch Paddle 1 für die 
Hacke zur Hilfe nehmen muß. Ge- 
sprungen wird mit Knopf O. Der Ein- 
satz eines Joysticks macht das Spielen 
komfortabel. 

Das Programm führt eine Hiscore-Li- 
ste, in die sich bis zu 10 Namen eintra- 
gen lassen. Diese werden nach Punkt- 
zahlen sortiert. 



Zur Eingabe: 

1. Programm „DIAMONDS" (Haupt- 
programm) eingeben und spei- 
chern. 

2. Shapetables eingeben und mit 
„BSAVE DIAMONDS.S HAPE, 
A$6000, L$ 3A7" speichern. 

3. Programm „HISCORES.OBJ" ab- 
schreiben, mit „RUN" starten. 

Zum Starten: 

Das das Programm die HGR-Seite be- 
nutzt und relativ lang ist, muß der Ba- 
sic-Pointer durch „POKE 103,0 : 
POKE 104,64" in die HGR2-Seite ge- 
legt werden. 

ACHTUNG!» Infolgedessen bedeutet 
der Befehl „HGR2" jetzt soviel wie 
„NEW"!! 

Nach den POKE- Angaben, „NEW" 
und „RUN DIAMONDS" eingeben ... 



8 TEXT : HOME : PRINT CHR* <4> "BLOADDI AMONDS. SHAPE": POKE 232,0: POKE 23 

3,96: ROT« 0: PRINT CHR* C4> "OPENHISCORES": PRINT CHR* <4> "READHISC 
OREB": INPUT NAXS FOR I = 1 TO NAXS INPUT NA*<I) , PPX ( I ) 5 NEXT : PRINT 
CHR* (4) "CLÖSE" 

9 SCALEN t: GOSUB 3000 

10 M - 35 X = 50: PPX = 0:L ■ 

20 HGR : HOME : FOR Bl = 1 TO 3: FOR AI = 1 TO 28; HCOLOR= l: DRAW II AT 

Ai * 10 - 10, Bl * 50:MX(A1,B1) - IIS NEXT A1,B1 
30 FOR Bl - 1 TO 3: FOR I = 1 TO INT (3 * RND CD) + l:Al = INT (20 * 
RND <1>) + 6S HCOLOR= 0: DRAW 11 AT AI * 10 - 10, Bl * 50: DRAW 11 AT 

AI * 10, Bl * 50:MX<A1,BI> = 0:MX(A1 + i,Bi> = 0: NEXT I,B1 
40 L - L •*■ HD - LSB = L * .35 TX « 400: IF L > 5 THEN TX = TX •*• 100 
45 A « 1SBX - 3:6% = 0: FOR 2 s 1 TO B:B1 = INT (3 * RND <1>> + 1 
30 AI - INT (22 * RND <1>) +5: IF MX (AI, BD < > 11 THEN 50 
60 M7.(A1,B1> * 20: SCALE« 3: XDRAW 9 AT AI * 10 - 10, Bl * 50 - 21: XDRAW 9 

AT AI * 10 - 10, Bl * 50 - 20: XDRAW 9 AT AI * 10 - 10, Bl * 50 - 19: NEXT 

70 FOR Bl = 1 TO 3: FOR I = 1 TO D 

80 AI - INT (22 * RND (1)) + 3: IF MX(A1,B1> < > 11 THEN 80 

90 SCALE= l:M7-(Al,Bl) =8: XDRAW 8 AT AI * 10 - 10, Bl * 50 - 10: NEXT I,B 
1 

100 HCOLOR= l: HPLOT 1,0 TO 279,0 TO 279,15 TO 1,15 TO 1,0: HCOLOR= 3 

110 HPLOT 105,3 TO 100,3 TO 100,12 TO 105,12: HPLOT 106,4 TO 106,11: HPLOT 
109,3 TO 111,3: HPLOT 109,12 TO 111,12: HPLOT 110,3 TO 110,12: HPLOT 
114,12 TO 114,4: HPLOT 115,3 TO 119,3: HPLOT 120,4 TO 120,12: HPLOT 1 
15,7 TO 119,7: HPLOT 123,12 TO 123,3: HPLOT 126,7 TO 129,3 TO 129,12 

120 HPLOT 123,3 TO 126,7 

130 HPLOT 132,4 TO 132,11: HPLOT 138,4 TO 138,11: HPLOT 133,3 TO 137,3: HPLOT 
133,12 TO 137,125 HPLOT 141,12 TO 141,3 TO 147,12 TO 147,3: HPLOT 155 
,3 TO 150,3 TO 150,12 TO 155,12: HPLOT 156,4 TO 156,11= HPLOT 160,3 TO 
165,3: HPLOT 160,7 TO 165,7: HPLOT 160,12 TO 165,12: HPLOT 159,4 TO 1 
59,6 

140 HPLOT 166,8 TO 166,11: HPLOT 159,11: HPLOT 166,4 

150 FOR I * 5 TO M * 15 STEP 15: XDRAW 1 AT 1,1: NEXT 

160 M=M-i:IFM= -1 THEN 3500 

170 FOR I = 1 TO 500: NEXT SMBX = 05 JX - 0: POKE 0,40: POKE 1,255: CALL 7 
71: XX = 10: A = 2:x « X - 15: XDRAW 1 AT X, 1 

180 xx « a * 10 - 10: sx ■ l:wx = 3s lx = 3:hx = 4:y% = bx * 50 - 17: xdraw 

SX AT XX, YX: XDRAW W% AT XX, YX + 14 

190 wox - wxsxox = xx:yox = YXSSOX - sx 

200 IF PDL (0) > 156 AND J% = THEN BOSUB 300: GOTO 220 
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240 

250 
260 
270 



290 
300 



340 



IF 



XDRAW SX AT XX, YX: 
IF MX< INT CA),BX) 



XDRAW 



210 IF PDL <0> < 100 AND JX = THEN GOSUB 400 

220 PX - MX< INT <A>,BX> 

230 IF PÄ = 8 AND PDL (0) > 156 THEN PP7. - PP7. + 200: XDRAW 8 AT XX, YX + 

7:GX - 6X + 1: POKE »,30: POKE 1,20: CALL 771 :MX(A,BX) =11: IF 6X - 

3 * D THEN 4000 

IF PX > 19 AND P% < 30 THEN XDRAW SX AT XX, YX: XDRAW WX AT XX, YX + 1 

4: CALL 790: FOR I = 1 TO 500: NEXT : SOTO 160 

IF PEEK ( - 16287) > 127 OR JX THEN SOSUB 500 

IF PEEK ( - 16286) > 127 THEN SOSUB 1000 

IF BLX OR INT (360 * RND (1)) < 10 THEN SOSUB 1500 
280 TX '■ TX - l: VTAB 22: PRINT " Time : "TX" Score : "PP'A" 

TX = THEN 3500 

GOTO 190 

IF XX + 5 > 274 THEN RETURN 
310 A - A + -5: XX - XX + 5: IF SX = 2 THEN SX = 1SWX = 3:LX - 3:HX = - 
320 IF WX « LX THEN WX = H%: GOTO 340 
330 WX = LX 

XDRAWI SOX AT XOX,YOX: XDRAW WOX AT XOX,YOX + 14: 

WX AT XX, YX + 14: POKE 0,30: POKE 1,2: CALL 771: 

AND JX ~ THEN 4500 

RETURN 

IF XX - 5 < 6 THEN RETURN 

. 5: xx = xx - 5: if sx = 1 then sx = 2:wx = 5:lx = 5:hx « 6 

420 IF WX = LX THEN WX = H%: BOTO 440 
430 WX « LX 

XDRAW SOX AT XOX,YOX: XDRAW WOX AT XOX,YOX + 14: XDRAW SX AT XX, YX: XDRAW 
WX AT XX, YX + 14: POKE 0,30: POKE 1,2: CALL 771: IF MX< INT <A> , BX) = 
AND JX ■ THEN 4500 
RETURN 

IF JX - THEN YX<1> - YX - 2:YX(2> - YX - 5:YX<3) - YX - 8:YX<4) - Y 
X - 5:YX(5) = YX - 2:YX(6) - YX 
505 JX = JX + l:XOX » XXSYOX = YX: IF JX = 7 THEN JX = 0: RETURN 
510 SOX - SX:WOX » WXIYX - YX<JX>: IF PDL (0) > 156 THEN XX » XX + 5:A - 
A + .5: GOTO 530 

IF PDL <0) < 100 THEN XX = XX - 5:A = A - .5 

XDRAW SOX AT XOX,YOX: XDRAW WOX AT XOX, YOX + 14: XDRAW SX AT XX, YX: XDRAW 
WX AT XX, YX + 14: POKE 0,YX(JX>: POKE 1,10: CALL 771: RETURN 
IF PDL (0) < 100 OR SX = 2 THEN RETURN 

ROT= 48: XDRAW 7 AT XX + 8,YX + 14: POKE 0,8: POKE 1,10: CALL 771 
IF MX( INT (A) + 1,BX> < 20 OR MX ( INT (A) + 1,BX) > 30 THEN XDRAW 
7 AT XX + 8,YX + 14: ROT= 0: RETURN 
1030 MX( INT (A) + l,BX) = MX« INT (A) + 1,BX> + 1: IF MX< INT (A) + 1,BX) 

= 30 THEN GOSUB 1050 
1040 ROT- 48! XDRAW 7 AT XX + 8,YX +14: ROT- 0: SCALE» 1: RETURN 
1050 MX< INT (A) + 1,BX) = 11: ROT= 0: SCALE= 3: XDRAW 9 AT ( INT <A> + 1) 
* 10 - 10,BX # 50 - 21S XDRAW 9 AT < INT (A) + 1) * 10 - 10, BX * 50 - 
20: XDRAW 9 AT ( INT (A) +1) * 10 - 10, BX * 50 - 19: SCALE= 1: RETURN 



350 
400 
410 A - A 



440 



450 
500 



520 
530 

1000 
1010 
1020 



1500 IF BLX = THEN BLX = 1 : BXX = INT (XX - 60 * RND <1>) -»- 30:BYX = 1 
60: IF BXX < OR BXX > 265 THEN BLX = 0: 60T0 1500 

1510 axx = bxx5ayx = byx:byx = byx - 5: if byx < 20 then xdraw 10 at axx, 

ayx:blx = 0: return 
1520 xdraw 10 at axx,ayx: xdraw 10 at bxx, byx 
1530 if mbx then 1570 
1540 if byx = 125 and bx = 3 and bxx - 5 < xx and bxx + s > xx then mbx = 

l: GOTO 1570 
1550 IF BYX - 70 AND BX - 2 AND BXX - 5 < XX AND BXX + 5 > XX THEN MBX * 

1: GOTO 1570 
1560 RETURN 
1570 OYX - YX:YX = BYX +14: XDRAW SX AT XX.OYX: XDRAW WX AT XX,OYX +14: XDRAW 
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1580 



1590 
1600 
1610 



1620 



2990 
3000 
3010 

3020 
3025 
3026 
3027 
3028 
3030 



TO 200: NEXT l: FOR I = 1 TO 

POKE 1,10: CALL 771: NEXT 



3040 

3050 
3060 

3070 

3080 

3090 

3100 
3110 
3500 

3501 
3502 
3505 
3510 

3520 

3530 
3540 
3550 

3560 
3570 
3575 
3580 



S% AT X%,Y%: XDRAW W7. AT X7.,YX + 14: IF BYX ■ 75 THEN BX ■ 2: XDRAW S 
7. AT X%,Y%: XDRAW WX AT X7., YX + 14: POKE 0,50: POKE 1,20: CALL 771: HB 

7. » 0:j% = 0:bl% = 0: xdraw 10 AT BX7.,BY%: goto 180 

IF BY% « 20 THEN BX - 1 : XDRAW SX AT XX, YX: XDRAW WX AT XX, YX + 14: POKE 
0,50: POKE 1,20: CALL 771:MBX = 0:JX = 0:BLX = 0: XDRAW 10 AT BXX,BYX 

: goto 180 

IF INT (500 * RND (1)) + 1 < 6 THEN 1610 
SOTO 1500 

CALL 790: XDRAW 10 AT BXX,BYX: FOR 1 = 1 
10: POKE 0,10: POKE 1,10: CALL 771: POKE 0,20! 

:Q = 

FOR I = Y% TO 160 STEP 5:Y0X - Y7.:YX - 15 XDRAW S% AT XX,YOX: XDRAW 
WX AT XX,YOX + 14: XDRAW SX AT XX, YX: XDRAW WX AT XX, YX + 14: POKE 0, 
12 POKE 1,5: CALL 771: NEXT : XDRAW SX AT XX, YX: XDRAW WX AT XX, YX + 

14: BX = 3:BL% = 0: CALL 790: FOR I = 1 TO 500: NEXT : GOTO 160 
END 

DIM MX (28, 3) 
DATA 162,0,189,173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76 

, 3, 3, 96, 162, 1 , 138, 32, 168, 252, 141 , 48, 192, 232, 224, 50, 240, 3, 76, 24, 3, 96 
FOR I = 768 TO 807: READ J: POKE I,J: NEXT I 
FOR I = 1 TO 8: READ T(I),L(I): NEXT I 

DATA 127,99,127,99,103,128,127,128,111,64,103,64,84,100,63,255 
DIM T1(8),L1(8>: FOR I = 1 TO 8: READ T1(I),L1(I): NEXT 
DATA 127, 35, 127, 35, 127, 35, 84, 70, 103 , 70, 63, 70, 1 , 70, 159, 130 
VTAB 5: HTAB 4: PRINT "pear Software games intersectian": VT AB 7: HTAB 

12: PRINT "proudly presents": VTAB 11: HTAB 14: PRINT " ": 

VTAB 13: HTAB 14: PRINT " ": INVERSE : VTAB 12: HTAB 14: PRINT 

": DIAMONDS :": NORMAL : VTAB 16: HTAB 13: PRINT "By Mark »Heene« 
VTAB 24: HTAB 1: PRINT "V3.0"*: VTAB 23: HTAB 9: PRINT "Press button 
to play": FOR I ■ 1 TO 600: IF PEEK ( - 16287) > 127 THEN HOME : 
RETURN 

NEXT I: SOSUB 3060: HOME : GOTO 3030 
HOME : VTAB 5: INVERSE : PRINT " DIAMONDS TOP TEN HISCORE TABLE 

»: NORMAL 

inverse : vtab 8: htab 18 - len <na*(1>): print na*<1>$: htab 20: print 
ppxu):hix - ppxu): normal 

for i = 2 to nax: vtab 8+1: htab 18 - len (na*(d): print na*(i); 
: htab 20: print ppx(i): next i 



"Press button to conti nue' 
> 127 THEN RETURN 



FOR I * 1 TO 10 



1 TO 8: IF TKI) = 1 THEN FOR J = 



VTAB 23: HTAB 7: PRINT 
00: IF PEEK ( - 16287) 

NEXT i: RETURN 

END 

FOR I « l TO 500: NEXT i: FOR I = 
1 TO Lid) * 2: NEXT J: GOTO 3502 

POKE 0,255 - T1(I>: POKE 1,LKI): CALL 771 

NEXT 
MBX = 0SJ% = 0:BL7. = 

TEXT : HOME : VTAB 12: HTAB 15: PRINT "Game over": 
"Score : "PPX: VTAB 17: HTAB 7\ PRINT "Level : "L 

VTAB 23: HTAB 7: PRINT "Press button to continue";: 
128 

1000 THEN 3550 

WAIT - 16287, 128: GOTO 10 

NAX + l: IF NAX * 11 AND FPX > HIX THEN NAX - 10". 60T0 3 



VTAB 15: HTAB 71 PRINT 



WAIT - 16287, 



IF PPX > = 

GOSUB 3060: 
HOME :NAX ■ 

580 
IF NAX - 11 AND PPX > PPX (10) THEN NA7. - 10: GOTO 35B0 
IF NAX « 11 THEN NAX « 10: GOSUB 3060: WAIT - 16287,128: GOTO 10 
IF PPX > PPX<1> THEN VTAB 3: FLASH : PRINT '•-- NEW HISCORE !!! 
INVERSE : VTAB 5: PRINT "ENTER YOUR NAME ->";: NORMAL : INPUT "";NA* 

< N A7- ) : PPX < NAX ) = PPX 
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POKE 0,255 - T(I); POKE l p 



3590 AAX = l:ZZX - NAXZBBX « 0SCCX « 1 

3600 FOR I = AAX TO ZZX: FOR J = AAX TO ZZX 

3610 IF PPX(I) < PPX<J> THEN AAX - J: SOTO 3600 

3620 NEXT J:BBX - BBX + CCX: XX - PPX<I):X* - NA*<I> 5PFXCI) - PPX<BBX>:NA* 

<I) = NA* (BBX): PPX (BBX) * xx:na*<bbx> = x*:aax = BB% + ccx: IF AAX < 
- ZZX THEN 3600 
3630 NEXT I 
3640 PRINT : PRINT CHR* (4) "OPENHISCORES": PRINT CHR* (4) "DELETEHI SCORE 

S": PRINT CHR* <4> M ÖPENHISCORES"= PRINT CHR* (4) "WRITEHI5C0RES": PRINT 

NAX: FOR I = 1 TO NAX: PRINT NA*(I>: PRINT PPX(I): NEXT I: PRINT CHR* 

<4) "CLOSE" 
3650 GOSUB 3060: WAIT - 16287,128: GOTO 10 
4000 FOR I - 1 TO 300: NEXT I: FOR I - 1 TO 8: 

L<I>: CALL 771: NEXT I 
4005 JX = 05MBX - 0:BLX * 
4007 PPX = PPX + TX 
4010 TEXT : HOME : VTAB 12: 
4015 M » M + l:X - X + 15 
4020 IF L / 2 = INT <L / 2) THEN VTAB 14: 

SAH !!!":X = X + 15:M = M + l: IF M > 5 
4025 IF L + 1 > 10 THEN L = 

4030 NORMAL : VTAB 16: HTAB 7: PRINT "Bet ready to enter level "L 
4040 VTAB 23: HTAB 7: PRINT "Press button to conti nue": WAIT - 

28: HOME : HGR : GOTO 20 
4500 IF BX = 3 THEN 3500 
4510 XDRAW SX AT XX, YX: XDRAW WX AT XX, YX + 14: BX = BX + 1: FOR I 

200 STEP 10: XDRAW 1 AT XX, YX + ß: XDRAW 3 AT XX, YX + Q + 14: 

I: POKE 1,10: CALL 771: XDRAW 1 AT XX, YX + Q: XDRAW 3 AT XX, YX + Q + 

14: Q = Q + 5; NEXT :Q = 0: CALL 790: GOTO 160 



HTAB 11: PRINT "Level "L" -finished' 



HTAB 5: FLASH : PRINT "EXTRA 
THEN M=M-l:X=X-15 



+ 1 
16287, 1 



= 100 TO 
POKE 0, 



Shapes: 



«6000 


-63A7 










6000- 


0B 


00 


18 


00 


A5 


00 


600B- 


53 


01 


74 


01 


8D 


01 


6010- 


DF 


0i 


30 


02 


81 


02 


6018- 


01 


01 


01 


01 


05 


01 


6020- 


01 


02 


03 


03 


03 


03 


6028- 


07 


03 


03 


02 


01 


01 


6030- 


05 


05 


05 


01 


01 


02 


6038- 


03 


03 


03 


03 


03 


03 


6040- 


05 


05 


05 


05 


05 


05 


6048- 


05 


02 


03 


03 


07 


07 


6050- 


03 


03 


03 


02 


01 


01 


6058- 


05 


05 


05 


01 


01 


02 


6060- 


03 


07 


07 


07 


07 


07 


6068- 


01 


01 


01 


05 


05 


05 


6070- 


01 


02 


03 


03 


03 


07 


6078- 


03 


07 


03 


02 


01 


05 


6080- 


01 


05 


05 


05 


01 


02 


6088- 


07 


03 


03 


03 


07 


07 


6090- 


01 


05 


05 


05 


05 


05 


6098- 


01 


02 


03 


03 


03 


07 


60A0- 


07 


07 


03 


02 


00 


01 


60A8- 


01 


05 


01 


01 


01 


01 


60B0- 


03 


03 


03 


07 


07 


07 


60BB- 


02 


01 


01 


05 


05 


05 


60C0- 


01 


01 


02 


03 


03 


03 


60CB- 


03 


03 


03 


03 


02 


05 


60D0- 


05 


05 


05 


05 


05 


05 


60D8- 


03 


03 


0iT 


03 


07 


03 


60E0- 


02 


01 


01 


05 


05 


05 


60E8- 


01 


01 


02 


03 


03 


03 



32 


01 


AE 


01 


42 


03 


01 


01 


07 


07 


05 


05 


03 


03 


03 


02 


05 


05 


03 


07 


05 


01 


03 


03 


03 


02 


01 


01 


03 


03 


05 


05 


03 


03 


07 


02 


05 


05 


07 


07 


01 


01 


02 


03 


03 


03 


05 


05 


03 


03 


05 


05 


02 


03 


07 


07 


01 


05 


07 


07 



60F0- 


07 


07 


07 


03 


02 


01 


60F8- 


05 


05 


05 


01 


01 


01 


6100- 


03 


03 


07 


03 


03 


03 


6108- 


02 


01 


05 


05 


05 


01 


6110- 


05 


01 


02 


03 


03 


07 


6118- 


03 


03 


03 


07 


02 


01 


6120- 


05 


05 


05 


05 


05 


01 


6128- 


03 


03 


07 


07 


07 


07 


6130- 


02 


00 


01 


01 


01 


05 


6138- 


01 


02 


03 


07 


03 


07 


6140- 


03 


02 


01 


01 


01 


05 


6148- 


01 


06 


03 


03 


03 


03 


6150- 


03 


02 


00 


01 


01 


01 


6158- 


05 


01 


02 


03 


07 


07 


6160- 


07 


03 


02 


01 


01 


01 


616B- 


05 


05 


06 


03 


03 


03 


6170- 


03 


03 


02 


00 


01 


01 


6178- 


01 


06 


07 


07 


03 


07 


6180- 


01 


05 


01 


05 


05 


06 


6188- 


03 


03 


03 


02 


00 


01 


6190- 


05 


01 


05 


01 


02 


03 


6198- 


03 


07 


07 


03 


02 


01 


61A0- 


05 


01 


05 


01 


02 


03 


61A8- 


03 


03 


03 


03 


02 


00 


61B0- 


01 


05 


01 


01 


01 


02 


61B8- 


03 


03 


07 


03 


03 


02 


61 C0- 


01 


05 


01 


01 


01 


02 


61 C8- 


03 


03 


07 


03 


03 


02 


61D0- 


01 


05 


01 


01 


05 


02 


61D8- 


07 


07 


07 


07 


07 


02 


61E0- 


01 


01 


01 


05 


01 


01 


61E8- 


02 


03 


03 


03 


07 


07 


61F0- 


07 


03 


02 


05 


05 


01 


61F8- 


01 


01 


05 


05 


02 


03 


6200- 


03 


03 


07 


03 


03 


07 



01 


01 


02 


03 


07 


03 


05 


05 


07 


07 


05 


05 


02 


03 


07 


03 


01 


05 


07 


03 


05 


05 


03 


03 


05 


01 


03 


07 


05 


01 


03 


03 


01 


05 


03 


02 


03 


03 


01 


01 


07 


07 


05 


05 


03 


03 


01 


01 


03 


03 


01 


01 


03 


03 


05 


01 


03 


03 


00 


01 


01 


01 


03 


07 


01 


05 


03 


07 


02 


01 



6208- 
6210- 
6218- 
6220- 
6228- 
6230- 
6238- 
6240- 
6248- 
6250- 
6258- 
6260- 
6268- 
6270- 
6278- 
6280- 
6288- 
6290- 
6298- 
62A0- 
62A8- 
62B0- 
62B8- 
62C0- 
62C8- 
62D0- 
62D8- 
62E0- 
62E8- 
62F0- 
62F8- 
6300- 
6308- 
6310- 
6318- 



01 05 

02 03 

03 03 
01 01 
03 03 
01 01 
01 02 
07 07 
05 05 
07 07 
05 05 
05 06 
07 07 

05 05 
03 03 

00 01 

01 01 
07 07 

02 01 

01 05 

03 03 

06 05 

05 05 

07 07 

06 05 

05 05 
J37 07 

06 01 
05 05 

07 07 

02 01 

01 01 

03 03 

02 01 
01 01 



01 05 
03 03 

02 01 
01 01 

03 03 
01 05 
03 03 
03 02 
05 05 
07 07 
05 05 
03 07 
07 06 
05 05 
03 03 
01 01 
01 01 
07 07 
05 05 
05 01 
07 07 
05 05 
05 05 
07 07 
05 05 
05 05 
07 07 
05 05 
05 01 
07 07 
01 01 
01 01 
03 07 
01 01 
01 01 



01 05 
03 07 

01 01 

02 03 

03 03 
05 01 
03 07 
01 01 
01 02 
07 07 
05 05 
07 07 
01 05 
01 02 
03 03 

01 05 

02 03 
07 07 
05 05 
02 03 
07 07 
05 05 
02 03 
07 07 
05 05 
02 03 
07 07 
05 05 
02 03 
07 07 

01 05 

02 03 

03 03 

01 01 

02 03 



01 01 
03 07 

01 05 
03 03 

02 00 
01 01 
07 07 
05 05 

03 07 
07 02 
05 05 
07 07 
05 05 
03 03 
03 02 
05 05 
03 03 
07 03 
05 01 
07 07 
07 07 
05 05 
07 07 
07 07 
05 05 
07 07 
07 07 
05 05 
03 03 
07 03 
05 05 
03 03 
03 03 
05 01 
03 03 
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6320- 03 03 03 07 07 03 03 03 

6328- 02 01 01 01 01 05 05 01 

6330- 01 01 01 01 02 03 03 03 

6338- 03 03 03 03 03 03 03 03 

6340- 02 00 05 05 05 05 05 05 

6348- 05 05 05 06 07 07 07 07 



6350- 07 07 07 07 07 06 05 05 
635B- 05 05 05 05 05 05 05 06 
6360- 03 07 07 07 07 07 07 07 
6368- 07 06 01 05 05 05 05 05 
6370- 05 01 01 02 03 03 03 07 



637B- 07 07 03 07 03 02 01 01 
6380- 01 01 05 05 05 01 01 02 
6388- 03 03 03 03 07 03 03 03 
6390- 03 02 01 01 01 01 01 05 
6398- 01 01 01 02 03 03 03 03 
63A0- 07 03 03 03 03 02 00 00 



Highscore Ersteller: 

10 PRINT CHR* C4)"0PEN HISCORES" 

20 PRINT CHR* (4)"WRITE HISCORES" 

30 PRINT 2 

40 PRINT "MARK": PRINT 1000: PRINT "APPLE": PRINT 800 

50 PRINT CHR* <4>"CL0SE" 

60 NEW 

70 REM DIESES PROGRAMM DIENT NUR ZUR ERSTELLUNS DES HIGHSCORE-FILES 




Das in Maschinensprache geschriebene Pro- 
gramm erweitert das Applesoft-Basic mit 
Hilfe des &-Zeichens um zwei Befehle: 
SWAP und INSTRING. 



Es beginnt bei der Adresse Ü94DO 

und schützt sich durch Yerändern des 

Himem-Wertes vor Überschreiben 

durch Basic- Variablen. 

Gestartet wird das Programm mit 

„Bß.UN". 

SWAP 

Der SW AP-Befehl ermöglicht das 
Vertauschen von zwei Textvariablen 
ohne Zuhilfenahme einer dritten. 
Durch diese Methode wird die sog. 
„Garbage Collection" vermieden, wo- 
durch z. B. Sortierprogramme sehr viel 
schneller werden können. 
SYNTAX: & S, AÜ,. BÜ 
wobei für AÜ und BÜ beliebige Varia- 
blennamen stehen können. Stehen an 
Stelle der Textvariablen numerische, 
so erfolgt die Meldung „TYPE MIS- 
MATCH ERROR". 
Beispiel: 
ILIST 

10 AÜ = „ABC" 
20 BÜ = „XYZ" 
30 & S, AÜ, BÜ 
40 PRINT AÜ 
50 PRINT BÜ 
IRUN 
XYZ 
ABC 
I 

INSTRING 

Diese Funktion sucht eine Zeic hen- 
kelte in einer anderen und gibt bei 
erfolgreicher Suche die Position zu- 
rück. 



SYNTAX: & I, AÜ, BÜ, P %.. 
Der Text von BÜ wird in AÜ gesucht 
und die Position wird in P % wiederge^ 
geben, wobei an Stelle von AÜ, BÜ 
und P % beliebige Variablen des ent- 
sprechenden Typs (Text- bzw. Ganz- 
zahlvariablen) benutzt werden kön- 
nen. Ist ein Variablentyp falsch, so 
erfolgt ein „TYPE MISMATCH ER- 
ROR". Dieser erfolgt ebenfalls, wenn 
die erste Textvariable leer ist, d. h. die 
Länge null hat. 
Beispiel: 
ILIST 

10 AÜ = „APPLE II" 
20 BÜ = „PL" 
30 & I, AÜ, BÜ. P % 
40 PRINT P % 
IRUN 
3 
I 

In AÜ können auch „Schneckennu- 
deln" als Jokerzeichen enthalten sein. 
Sie ersetzen kein, ein oder mehrere 
Zeichen. 
Beispiel: 
ILIST 

10AÜ = „APPLE II" 
20 BÜ = „PÖE II" 
30 & I, AÜ, BÜ, P % 
40 PRINT P % 
IRUN 
2 

Ist BÜ nicht in AÜ enthalten, so wird 
P % null. 

L ± 1 

O A e 



Listing: 



»94D0.95FD 



94D0- 


A9 


P0 


85 


73 


A9 


94 


85 


74 


94D8- 


A9 


4C 


8D 


F5 


03-A9 


EB 


BD 


94E0- 


F6 


03 


A9 


94 


et) 


F7 


03 


60 


94E8- 


20 


87 


00 


E6 


BB 


D0 


02 


E6 


94F0- 


B9 C9 


53 


F0 


07 


C9 


49 


F0 


94FB- 




4C 


C9 


DE 


20 


E2 


?5 


A5 


9500- 


83 


B5 


FE 


A5 


84 


85 


FF 


20 


9508- 


E2 


95 


A0 


02 


Bl 


83 


AA 


Bl 


9510- 


FE 


91 


83 


8A 


91 


FE 


88 


10 


9518- 


F3 


60 


20 


E2 


95 


A0 


00 


Bl 


9520- 


83 


F0 


59 


85 


FC 


C8 


Bl 


83 


9528- 


8D 


73 


95 


BD 


9F 


95 


CB 


Bl 


9530- 


83 


8D 


74 


95 


BD 


A0 


95 


20 


9538- 


E2 


95 


A0 


00 


Bl 


83 


F0 


3C 


9540- 


85 


FD 


CB 


PI 


83 


BD 


63 


95 


9548- 


BD 


89 


95 


BD 


CB 


95 


CB 


Bl 


9550- 


83 


BD 


64 


95 


BD 


8A 


95 


8p 


9558- 


CC 


95 


A2 


00 


A0 


00 


84 


FE 


9560- 


84 


FF 


B9 


FF 


FF 


C? 


40 


D0 


9568- 


07 


CB 


C4 


FD 


F0 


0E 


D0 


F2 


9570- 


84 


FB 


DP 


FF 


FF 


F0 


0A 


E8 


957B- 


E4 


FC 


90 


F6 


A9 


00 


4C 


D4 


9580- 


95 


86 


EB 


CB 


C4 


FD 


F0 


48 


9588- 


B9 


FF 


FF 


C9 


40 


P0 


0A 


A9 


9590- 


01 


85 


FE 


85 


FF 


84 


F9 


D0 


9598- 


EA 


E8 


E4 


FC 


F0 


DE 


DD 


FF 


95A0- 


FF 


D0 


0C 


A5 


FE 


F0 


PC 


86 


95AB- 


FA 


A9 


00 


85 


FE 


F0 


D4 


4B 


95B0- 


A5 


FF 


F0 


M 


A5 


FE 


P0 


09 


25B8- 


A6 


FA 


A4 


F9 


CB 


A9 


01 


85 


95C0- 


FE 


68 


4C 


99 


95 


A6, 


EP 


A4 


95C8- 


FB 


68 


B9 


FF 


FF 


4C 


77 


95 


95D0- 


A6 


EB E8 


SA 


48 


20 


EB 


95 


95D8- 


A0 


00 


98 


91 


83 


CB 


68 


91 


95E0- 


83 


60 


20 


F5 


95 


F0 


01 


60 


95E8- 


4C 


76 


DD 


20 


F5 


95 


D0 


F8 


95F0- 


AS 


12 


F0 


F4 


60 


20 


BE 


DE 


95F8- 


20 


E3 


DF 


A5 


11 


60 
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Ein fleißiger Gärtner hat seinen kleinen Garten für die Saat vorbereitet. 
Nun muß er die Saat ausbringen. 



Er kann aber immer nur für eine Beet- 
reihe Samen nehmen und aussäen. 
Nach der Saat muß er natürlich gie- 
ßen. Bald schon erscheinen die ersten 
jungen Pflänzchen, die dann schnell 
ausgereift sind und mit dem Tragekorb 
eingesammelt werden können. Da sie 
aber sehr groß sind, kann der kleine 
Gärtner nur höchstens 5 Pflanzen auf 
einmal tragen. Manche Keimlinge 
wachsen recht langsam, aber hier 
kann der Gärtner mit ein wenig Dün- 
ger ins Gießwasser nachhelfen. Die 
ganze Gärtnerei wäre leicht zu schaf- 
fen, wenn da nicht ein Schwärm gefrä- 
ßiger Vögel wäre. Diese haben einen 
Riesenappetit auf das Saatgut und die 



ausgewachsenen Pflanzen, mögen 
aber nicht die kleinen Keimlinge. Der 
Gärtner kann sie mit der Vogelrassel 
verscheuchen, wenn sie gerade im Bo- 
den nach der Saat suchen. 



Gespielt wird mit dem Joystick. 
Man geht mit dem Gärtner zu dem 
Gegenstand, den man aufnehmen will, 
und drückt den Aktionsknopf. Ausge- 
sät, gegossen, geerntet und die Ernte 
in den Vorratsbehälter geworfen ge- 
schieht ebenfalls durch Betätigen des 
Aktionsknopfes*. 

Nun viel Spaß und eine reichliche Ern- 
te. 




O REM GARTEN »H.LOEPP* 

±8 PRIHTCHR$Ci47>SPC<225)"EIHEH MOHEHT":GOSUB450 

20 A*="t*ieeeeeeeet3" 

30 BS = T6ÖO : BZ = 818G = FS=3Ö72ß r FZ=389Ö6 = D-=77B4:C=7726 

-*Ö Z = i:SE = 8fl:T = 36877 

5© PRINTCHR$C147> :POKET+i,i5: POKE36879, 23 :POKE3G8G9,255 

60 FORH = BSTOBS+2i = POKEN, 3 = POKEH+440, 3 

65 POKEFS+H, 5 :POKEFS+N*448,5 = HEXT 

79 FORN=BS+22TOBS+448STEP22 = POKEH, 3 = POKEH-i , 3 

75 POKEFS+H-i , 5 : POKEFS+N , 5 : NEXT 

88 POKEBS+12 , ±6 = POKEBS+i3,i5 = POKEBS+14, ±T = POKEBS + 15, ±6 

85 PRINTCHR$(19) , CHR$ti7) :FORH=1T09 = PRIMTA$ = HEXT 

3© PRyHTCHR^^±9>SPC<20>'*LitJBL'L'l.-llilLiL'UllFL'L'L'llFL'L'L'llKL'L'L'L'li»ISlL'I|l 1 

[•IIP*- 

±00 SVS828:J=PEEK(251) : Ci*PEEK(D + 22) :C2 = PEEK<l>+i) 

185 POKET,0 

±±Ö IFJ-t-PEEK<D-22>=±84TTHEHD = l>-22 - POKED+22, 32:POKET J 254 

±±5 IFJ+PEEK<D-±>=±72THEHD=D-± = POKED+1, 32 = POKET J 254 

JL2Ö IFJ+PEEK<D + 22)=186THEND=D + 22 :POKED-22, 32 :POKET J 254 

±25 IFJ+PEEK(D+i>=e8THEMP=D+i:POKED-i J 32:POKET J 254 

138 IFRHDC1X.4THEHGOSUBI60 

JL410 IFPEEK<D + 22)=4AHDZ = 8THEHPOKED + 22, ±3 

±■45 IFPEEKC252>=0THENGOSUB250 

±50 POKED, Z r POKED+FS, = GDTO108 

±60 IFPEEK<C>=±2THEHPOKEC, ©- ftH=ftH~± = GOSUB4I8 

±65 IFPEEK<C)=4THENPOKEC J = AN=AN~1 = GOSUB418 

±78 IFPEEK<C>=13THENPOKEC J 4:GDSUB4O0 

±75 IFPEEK<C)=i4THEMPOKEC,12 

200 C=7725+INT<RNDC1>«9)*44+INT(RHD(1>*8>+1 

2±0 IFAN=0flNDBL=0ftNDSE=0AMDSft=0THEH350 

220 RETURH 

250 C±=PEEICCD+22> :C2=PEEK<D+1) 

255 I FCl=12AHDZ=7AHDBL<5THEHPGKED+22 , ±8 : AN=AH-1 = BL=BL+1 = SH=S 

H+± = PRINT"{*fc*|U'*Bl_ 



260 IFC1=14AHDDÜ = 1AHI>Z = 9THEHPOKED + 22 J 12:DU=0 

265 IFC1=13AHDZ=9THEHPOKED+22,14:GOSÜB430 

270 IFCl=0AHDSA>0THEHPOKED+22, ±3 = SA = SA-1 = AH = AH+1 = PRINTCHR$<± 

9)SPC(10>SA:GOSUB448 

275 XFC2=19ANDZ=7THENG0T0318 

2S0 IFC2=11AMDSE>0AMDSA=0THENZ=10 = SE=SE-<8-SA> = SA=8 = POKEBS+1 

± , 56 = GOSUB436 

285 I FC2=2AHDSA=8THEKZ=9 - GDSUB438 

23© IFC2=5AHDSA=OTHEHZ=8 = GOSUB430 

295 IFC2=GAHDSft=0THEMZ=7 :GDSUB438 
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300 IFC2=2iftMDSft=8flNPZ=3THEHDU=i - 6OSUB430 

365 RETURN 

3±Ö FÖRH=8TÖBL = POKEBZN, ±2 = POKEFZ-H,2 

3X5 POKET-2,238-(H*ie) = FOR I=±TOJLOÖ = HEXT 

320 PRIHT"tÜ*|U"BLH 

325 HEXT 

336 BZ=BZ-BL:FZ=FZ-BL = BL=6 = POKET-2,6 

335 RETURN 

356 PRIHTCHR$CI47) :POKE36869, 246-POKE36873, 33; POKET.0 

355 IFSH>SOTHEMSO=SW 

369 PRINTTAB(7>"f3DU HAST ,, SPC<39>"iai ,, SH"" n SPC(38)"aPFLAHZEH ,, S 

PC(36>""gGEERMTET" 

365 PRINT: F0RH=8TO21 : PR IMT"t" ; = HEXT 

3TO PRIHTSPC<27J"HOECHSTERHTE ,, SPC(3?)' , iai' , S0 , '""SPC<38> l, PFLftHZ 

EH" 

3T5 PRIHTSPC<44>"«lä FUER EIH HEUES SPIEL DRUECKE DIE F^ROTE T 

ftSTE" 

360 F0RM=253T0248STEP- * 0-*: POKET-3, M= HEXT 

385 SVS828: I FPEEK < 252 > =6THEHPÖKET-3, O = SH=0 = G6T036 

336 F0RM=249T0252STEP . 62 = POKET-3, M = HEXT 
365 GOTD366 

-46 6 EORH = i0TO50STEP5:POKET-i, 280 + M = HEXT = POKET-i, O : RETURH 

416 F0RH = 5BT08STEP-5 = POKET-2, 230-H = HEXTH : POKET-2 , 6 = RETURH 

430 FORH=1TO20STEP2 = POKET-i , 218+H : HEXT = POKET-1,0 

-435 PRINTCHRS(i9>SPC(i5)SE = I FSE<iBTHENPOKE769T , 3 2 

-440 FORH=iTOi0: POKET-i,242 + H:HEXT: POKET-i , O = RETURH 

450 FORN=0TO51I:P0KE7i68+M,PEEK(32768+H>HEXT 

466 FORM=ÖTO±83 = REftDA i POKE71G8 + W, A = S=S+A = HEXT 

4TO FORH=BT034: READA : POKE828+H, A : S=S+A : HEXT 

480 IFSO18504THEHPRIHTSPCC30) ;"FEHLER" = EHD 

438 RETURH 

560 DflTflB, 6,6, ±2 6, ±35, 255, 255, 6 , 28 , 28 , 8 , 127 , 63 , 2 8 , 26 , 26 

565 »ATA12, ±8,146, ±58, 34,62,36,36, 28, 42, 26, 42, 28,8, 8, 8 

5±6 DATA129, 66, 66, 24, ±29, ±95, 255, 6, ±66, 86, ±66, 86, 2, 2, 2, 2 

5±5 DATA17 , 31, 127 , 223 , 159 , 223 , 127 , 31 , 56, 46 , ±7, 255 , ±9± , 66,46, 

46 

528 D ATA181, 85 , ±78 ,23,31,7,5,5,7, ±33 , ±36 , 73 , ±19, ±±9 , ±±7 , 5 

525 DATA7, 5,58, 47,231, 231,5,5,129, 129,213,171, 213,171,213, 25 

5 

530 DATA24,66,24, ±65, ±65, 24,66,24, 6, 6,0, ±53, ±53, ±35, 255,6 

535 »ATft24,36,36, 24, 153,255,255, 6,6, 162,134,137, 111, 41,201,6 

546 DATA8, 6, 6,0, 8, 8, 6, 6, 6, 55, 56,74,122, 74,74,0 

545 OATA0, 6,6,0, ±29, 255, 255, 6, 255, 6, 6, 6,6, 6, 8, 255 

556 DATA128, 64, 32, ±6, 8, 4, 2, 1,64, 166, 72, 9, 7,7,7,7 

555 DATflO, 238, 16 8, 238, ±36, ±36, ±37, 8, ±69, 127,141, 34,145, 173,3 
2,145 

568 DATA 41, 128, 133, 251, 169,255,141, 34, 145, 173,31,145, 41, 28,2 
4,161 

565 DATA251, 133, 251,173,31,145,41, 32, 133, 252,96 
READV. 
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Gruselstein 



Ihre Aufgabe besteht darin, 5 Gespenster, 
welche in der Burg herumgeistern, einzufan- 

gen bzw. einzumauern, für die Grundversion des vc-20 



Bevor Sie nun ans „Gespensterfangen" 
gehen, muß noch erwähnt werden, daß 
diese nur in einer der 16 Ruinen einge- 
mauert werden dürfen. Damit die Sa- 
che noch erschwert wird, werden Sie 
von einem Monster verfolgt. Aber 
Achtung: Das Monster sucht den kür- 
zesten Weg zu Ihnen und zerstört 
rücksichtslos alle von Ihnen errichte- 
ten Mauern. Haben Sie es geschafft, 
ein Gespenst einzumauern, dann ver- 
schwindet dieses, und das Spiel geht 
mit einem Gespenst weniger weiter. 
Sind alle Gespenster eingemauert, er- 
scheinen 5 neue Plagegeister. Dies 
wiederholt sich solange, bis alle 3 zur 
Verfügung stehenden Figuren verlo- 
ren wurden. 



Wenn Sie das Spiel starten, müssen 
Sie sich einen Augenblick gedulden 
(Zeichenumwandlung), dann können 
Sie zwischen 5 verschiedenen Schwie- 
rigkeitsgraden wählen, welche das 
Tempo der Monster bestimmen. 
Schwierigkeitsstufe >1< ist jedoch 
nicht zu empfehlen, auf dieser Stufe 
können Sie sich höchstens im „Davon- 
laufen" üben. 

Steuerung- 
Links >A<, rechts >D<, aufwärts 
>W<, abwärts >Leertaste<. 
Wenn Sie eine Mauer bauen wollen, 
drücken Sie kurz die F7 -Taste und so- 
fort danach die gewünschte 
Richtungstaste . 




1 REM SCHLÖSS GRUSELSTEIN 

2 REM COPYRIGHT BV 

3 REM HINKLER GABRIEL 

■4 REM STOECKELUEINGARTEN 75 

±0 RE AD A : I FA=-iTHEHCLR : GOT07B 

20 F0RT=0T07 = READB = POKE?i68+T+A*8 , B = HEXT = GOTOiO 

30 DATA32, ,,,,,,, ,63,66,126,126. 165, 231, 255, 219, 153 t 

35 DATA62, 66, 66, 126, 219, 255, 195, 126, 68, 61 , 2-», 24, 126,98,24, 68 

,36,36 

48 »ATA59, 22-4,224,224, 224,255,255,255,255,58,7,7,7,7,255,255 

,255,255 

45 DATA56 J 255,255,255 J 255,7,7,7,7,57,255,255,255,255,224,224 

, 224,224 

58 DATA68, 251, 251, 251, , 239, 239, 239, , -1 

78 POKE36879, 18 :POKE36878, 15 : M=3 

88 PRIHT"Li5S L3SCHLOSS GRÜSELSTEIN5Z" = INPUT"[£tiSPIEl_ STUFE = <l-5 

>"; S : IFSC18RS>5THENS=8 

98 AS=5=X<1>=4= X<2>=7=X<3>=9= X<4)=4: X*5>=9 = V<1)=88 = Y< 2>=154 = 

VC3>=88:V<4>=198 :V(5>=198 

10B A^=" 38389898 ==: 



110 POKE36869, 255 = PRIHT 1 'LJ SM9 IfMT ' ft g = "|B"AS: ; "BJM"AS: ; "WAS = FORT=8T 

821 

12© POKE38422+T, 4:POKE38884+T,4:POKE38422+T*22, 4=POKE38443+T 

»22, 4= P8KE7782 + T, 68 

138 PGKE8164+T, 68 = POKE7782 + T*22 , 68 = PBKE7723+T*22 , 68 = HEXT = G8S 

UB3016 G0T04B88 

1888 P=PEEKC197>:A=8:ß=8 

1818 IFP=i7THENA='l : GOT81878 

1828 IFP=18THENA=1 : G8T01878 

1838 IFP=3THEHB=-22 : GOT81878 

1848 IFP=32THEHB=22 : G8T81878 

1858 IFP=G3THEH2B88 

1868 G8T81188 

187 8 POKE36876, 288 :POKE8148+X + V, 32 = X = X + A = V = V + B:POKE36876, 8 

1888 IFPEEKC8148+X+V>>6ITHEHGOSUB388e 

1898 IFPEEK<8I48+X+VX>32THEHX=X~A : V-V-B 

1188 P8KE38868 + X + V,7 = PGKE8148 + X+V, 61 = RETURN 

2888 FOKT-8TG58:P=PEEK(i97) 

2818 IFP=17THEKA=-1 

2828 IFP=i8THEHA=l 
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2038 IFP=9THENA=-22 

204O IFP=32THEHft=22 

2050 IFATHEM2878 

2060 HEXT=RETURH 

2O70 IFPEEK(8i40+X+V+fl>O32THEHRETüRH 

2088 F8RT=I50T8258STEP8 = P8KE3687T,T = HEXT 

2O90 P8KE38868 + X + V + A , 3 = P0KE8148 + X+V + A , 60 = POKE36877 , © = RETURH 

3000 FORT = i30TO25Q = POKE36876, T = HEXT : POKE36876, 8 = H=M-i = IFM=0T 

HEHTOO0 

3810 POKE8148+X+V, 32 = POKE8i48 + Xl + Vi,32 = X = -i = V=8 = X± = -±0 = Yl=8 

3820 PRIWT"Ö"; :FORT=iTOM-PRIHT"Ci= II""; = HEXT = PRIHT"Sd"TÄBO>"iaS 

CORE = "SC"»' 1 = RETURH 

4000 Q=Q+i:IFQ>ftSTHEHQ=i 

4810 MO=MO + l - IFM0 = STHEHMO = = G8SÜB8880 

4020 P8KE7794+X<Q)+V(Q),32R(Q)=R<Q>-1: IFRCQ)>0THEN4848 

4630 ftCQ>=0 = B<ci>=0 = R<Q> = IHf < RHDC ±>~6> :ZX=RND<l>*5:OHZZGOSUB4 

±50, 4160>4i78,4188 

4O40 X<Q>=X<«3!>+A<Q> = Y<Q>=Y<Q>*B<Q> 

405© IFPEEK(7794+X(Q>+V(Q>)=G1THEHGOSÜB3808 

406O IFPEEK(7794+X<Q>+VCQ))O32ORX<Q><eORX<Q»13ORV(QX0ORV( 

Q>>286THEH4508 

4878 P0KE38514+XCQ>+V<q> J lP0KE7794+X(Q>+VCQ> i 63:6GSUB4200:6 

OSUB1888 = 6OTO4O00 

4156 ft<«>=±= RETURH 

4168 ftCQ>=-i : RETURH 

4178 BCQ>=22:RETURH 

4180 B<Q>=-22:RETURK 

420O L=7794+X<Q)+V(Q) = IFPEEK(L-21)056THEHRETURH 

4210 IFPEEK<L+l)<>e0BRPEEKCL-l)<>G8BRPEEK<L+22>O80BRPEEK(L- 

22>068THEHRETURH 

422© FBRT=138TB250 = P8KE36875 J T = HEXT = POKE36875, 

4230 PÖKEL, 32 = PBKEL+1,32 = POKEL-1,32 = POKEL+22,32 = POKEL-22,32 

4240 X<Q>=X<AS> = V€Q>=V<ftS> :SC=SC + 1B8: GOSUB382B = ftS = **S-i = IFAS = 

0THEH5000 

4258 RETURH 

450O X(Q)=XCQ>-ft<Q):V(Q>=VCQ>-B(Q) :RCQ)=8:68T04B78 

5808 PBKE36869, 248 : PRINT"taaÜI>URCH6AHG : " i SC/508 = PR I NT'TBNKT 

£- = ■ ■ SC -PRIHT" ffft U R E R - * * 1*1 

5818 PRIHT"£!3MOLLEH SIE l>ftS SPIEL FORTSETZEH ?"" = PRIHT"KiÜÜ 

BITTE EIHE TASTE" 

582© GBSUB7580:G8T898 

7000 PRIHT"Ö " : GBSUB75B8 : PBKE36869 , 248 

7018 PRIHT" ■L'.JMPlLUfglirafl HOCH EIH SPIEL ? BITTE EIHE TAS 

TE" 

7828 GOSUB7588 = RUH78 

7588 PBKEI98, B : MAIT198 , 1 : RETBRH 

8008 POKE8140+X1+V1,32 

8828 IFX1>XTHEHX1=X1-1 : Ml=-1 

8838 IFXKXTHEHX1=X1+I'-Hi=l 

8840 6BSUB988B : IFATHEHVl=Vl+«2 : GBTO8888 

8858 IFVi>VTHEMVl=Vl-22 : M2=-22 

8868 I FYKVTHEHVl=Vl+22 : «2 = 22 

8878 GBSUB9888: IFATHEHXi=Xl+Ml 

8888 IFPEEK(8148+X1+V1)=G1THEHGOSUB3008 

8885 IFPEEKC8148+X1 + V1)=68THEHFBRT=158T8288 = PBKE36877 , T = HEXT 

8038 POKE36877, 208 = PBKE388GB + X1+V1 , 1 = PBKE8I48+X1 + V1.G2 = POKE3 

6877,0:G8SUB1888 : RETURH 

3000 IFPEEK<8148+X1+V1»59THEK9028 

9010 IFPEEK(8i48+Xl+Yl)<>32THEHA=l - RETURH 

3020 A=0= RETURH 

RREADV. 
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Topprogramm 



Ein kleiner Floh und sein Freund, lebenslu- 
stig und froh, haben ein schweres Schicksal 
zu meistern. Sie sind beim Herumhüpfen un- 
bewußt in den Einflußbereich eines Magiers 
geraten. 



Zur Strafe sollen sie im Kellergewölbe 
der Behausung des Magiers einge- 
sperrt werden. Doch siehe da: Nur bei 
einem Floh klappt der Zauber. Immer- 
hin: Auch der zweite ist im Bann des 
Magiers, denn er befindet sich im Erd- 
geschoß des Zauberreiches, ohne ei- 
nen sichtbaren Weg in die Freiheit. 
Nun gilt es für diesen kleinen Floh, für 
sich und seinen Freund einen Ausweg 
zu finden. 

Sein Weg durch das Zauberreich (6 
Bilder), über Rolltreppen (nicht immer 
sichtbar), automatische Kletterstan- 
gen, fliegende Teppiche und Sprungfe- 
dern endet im Kellergewölbe, nach- 
dem hier drei tickende Bomben ins 
Wasser geworfen, der zweite Floh be- 
freit und der Ausgang gefunden ist. 
Den Weg erschweren Teufelsmonster, 
fliegende Vögel und rollende Kugel- 
monster. 

Aufgabe des Spielers ist es, den Floh 
von einer zur nächsten Plattform hüp- 
fend, ins nächste Bild zu bringen. 
Um in den ersten zwei Bildern voran- 
zukommen, müssen unter der Decke 
hängende Hebel bedient werden. 
Am Spielende erscheint eine „High- 
Score" -Tabelle. 

Prinzip der Punktezählung: 

Für jedes Bild gibt es eine Vorgabe von 

800 Zeiteinheiten. 



Während des Spieldurchlaufs wird 
rückwärts gezählt und die verbleiben- 
de Restsumme wird als Punkte gutge- 
schrieben. Im Schlußbild (Keller) gilt 
es in 120 Zeiteinheiten die 3 Bomben 
zu „entschärfen". Die Differenz wird 
als Punkte gutgeschrieben. Außerdem 
gibt es bei Befreiung des zweiten Flohs 
als Bonus 400 Punkte. 
Als Reserve stehen fünf weitere Spiel- 
figuren zur Verfügung. 
Der Verlust jeden „Lebens" wird mit 
100 Minuspunkten bestraft. 
Wenn der Floh in ein unteres Bild 
(Stockwerk) zurückfällt, werden 800 
Punkte abgezogen. Bei Wieder errei- 
chen des verlassenen Stockwerkes 
werden diese 800 Punkte, abzüglich 
verstrichene Zeiteinheiten, wieder zu- 
gezählt, so daß ein Absturz nur mit 
dem entsprechenden Zeitverlust be- 
straft wird. 

Bei extrem langsamen Spiel können 
sich aber auch Minuszahlen in der 
Punktebewertung ergeben. In diesem 
Fall gibt es natürlich keine „High- Sco- 
re" -Bewertung. 

Zum Programm. 

Ein umfangreiches Basic-Programm 
wie das vorliegende, würde - müßten 
stets alle für den gesamten Spielablauf 
notwendiges Abfragen durchlaufen 
werden - für den Benutzer sehr ermü- 
dend sein. 



Deshalb mußte bei der Programm- 
erstellung systematisch vorgegangen 
werden. 

Die Hauptroutine (ab Zeile 5000) ent- 
hält nur alle für den Gesamtspiel- 
ablauf unbedingt erforderlichen Be- 
fehle. 

Alle Aufgaben, die nur einen speziel- 
len Spielabschnitt betreffen, sind in 
Unterroutinen geordnet, zusammen- 
gefaßt und werden aus Zeile 5032 der 
Hauptroutine (gosub g) angesprungen. 
(Die Variable g wird in den Zeilen 
7000-7500 festgelegt.) 
Diese Unterroutinen wurden wegen 
des schnelleren Zugriffs direkt an den 
Programmanfang gestellt (Zeilen 19 
bis 400). 

Nach der Hauptroutine folgen die Un- 
terprogramme für den jeweiligen Bild- 
aufbau. 

Alles weitere, wie Anfangsvariablen- 
bestimmung, UDG's usw. steht am 
Programmende . 

Es wurden möglichst viele Befehle in 
eine Zeile geschrieben und es wurde 
ein logische Schreibweise bevorzugt 
wie zum Beispiel: IF NOT i THEN ... 
statt IF i - THEN'... 
Auf eine laufende Punkteanzeige wur- 
de wegen des Zeitbedarfs verzichtet. 
Dafür gibt es eine stete Punkteanzeige 
(aus grafischen Gründen im unteren 
Bildschirmbereich), die nach jedem 
Bildwechsel auf den aktuellen Zwi- 
schenstand gebracht wird. 
Nach unseren Erfahrungen erhöht 
dies sogar die Spannung. 
Die Variablen-Bestimmung findet man 
sehr übersichtlich im Listing ab Zeile 
9100. 

S ämtliche s elb stdef inierte n UDG's 
sind als CHR (X)- Werte im Programm, 
um die Eingabe etwas zu erleichtern. 



1 REM *** JUMP ftßüUT *** 

© by HEim-Guentbßf Gretas 
schlangenstr. 15 



3 LET »5=0: LET J»7=0; LET ®S- 
®; LET C $ = "-"; LET d* = " -".- LET e 

£«"-"; re« urrirblen fuer high-s 
göre 

4. poke s36ß9,17: rem tbbtbtur 

-PIEP 

5 CLS : IHK : RRPBR 7: GO SU 
B 32Ö0: GO TO 35©0 

9 INK 8: PffPER 7; SO SUB 91 
; REM UflRIflBLEN 

10 GO SUB 9000; GO SUB 700Ö; 
O BUB 20 : GO T Q 5O00 
19 REM £l=*=|=tf 
2© IF p=2 THEN GO TD 110 

21 IF p>£ THEN RETURN 

22 INK 4; PRINT RT 2,3;CHR$ 
ÜBT 2,27;C-HR$ 151; AT 6,3;CHR$ X 
©X;»T 1®,5}CHR$ 15X; BT 10,2ö;CHR 
4 151; RT 14-,4;CHR$ 151 J RT 18,16; 
C-HR& 151: XNK 0: RETURN 



G 



IS 



GD 



23 REM laM*IM;lal:335 

3ß XF p=2 THEN GO TO 100 

32 IF e=20 THEN LET r=24-: 
O 4-0 

33 IF e=lS THEN LET r=15: GO " 

o *e 

34 XF £=12 BND W =5 THEN LET f ■■ 
22: GO TO 4-0 

35 IF 6=12 BND w =23 THEN LET i 
= 13: GO TO 4-2 

3B IF e=© BND w =3 THEN LET V «; 

&: GO TO 4-0 

37 XF £=4- AND «* -3 THEN PRINT 
BEEP 
BEER 
BEEP 
3© IF e^4- »HD »=87 THEN 
$: GO TO 42 

4-g* INK 3: PRINT BT £,r;CHR$ 14 
i; CHH$ 145; BT fi-l,f +1; CHRS 14-4J C 
HR* 145; BT e -2, r +2; CHR$ 144; CHRf 
145; RT 6-3,r+3iCHR$ 144- ; INK 0; 
RETURN 
42 INK 3: PRINT BT e,r-l;CHR$ 
14-6; OHRS 14-7; BT e -1 , r -2; CHR4» 1*6 
;CHR$ 147; BT e-2„ r-3; chr$ 14S; CH 

RS 147; RT £-3,r-3;CHR$ 147: INK 



T 2,23J '* 
T 3., 23; " 
T 4-, 23; 



01,11: PRINT R 
H.,13: PRJNT R 
il,15; RETURN 

LET r » 
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ROLLTREPPE U& 



RETÜRM 
4-9 REM 

51 PR INT RT fi ", tfX 1 "* 
5S IP qt = l THEN LET IM =W +1 
53 IF q=2 THEN L£T üJ =W -1 
54- PRINT RT €,w; INK 1; CHR* 14 



55 IF P>1 THEN RETURN 

56 print rt 1,5;" ";rt a,5;" 
■;RT 3/6;" "*;rt 4-/7;" *';rt 5/1 

3;" ";RT 6,18;" ";RT 7,17;" "; 
RT 8/16;'* "jflT 9/10;" "JfiT 10., 1 
a; " ";RT 11,11;" ";"RT 12/12;" 
";RT 9,25;" ";PT 10/24-; " ";ßT 
H.,23;" ";RT 12,22;" " ; RT 13,1 
3;" ";RT 14./ 17;" ";RT 15/16;" 
";RT 16/15;" ";RT 17/27;" " ; RT 
16/26;" ";RT 19/25;" " ; BT 20,S 

**57 GO SUB 20 

SS RETURN 

60 REM 

61 IP e<5 THEN PRXNT BT x / 6; " 

.. . QO TO 73 

62 PRINT RT y,26;** " : PRINT RT 
X ., ©.; " " ; LET Xsx+1: PRINT BT tf ., 

o; PRPER 8; BRIGHT 1; CHR* 159; X 
F x>15 THEN LET X =6 

63 IP RTTR (e,»)«112 THEN GO 6 
US S0Ö0; PRINT RT e,w;" "; L.ET e 
=20: LET tt=2 

64. PRINT RT 1S..S;" " 
65 RETURN 

72 rem E rarfsmastwt-a«^»* 

73 PRINT RT y,26 ; " M : LET y «y + 
1; PRINT RT y,28, PRPER 6; BRICH 
T 1;CHR* 159: XF y>7 THEN LET üs 



EUPEL "BILD. 



74- XF RTTR {e,W?=ll£ THEN GO 3 
ÜB 6000: PRINT BT e.,»;" " .- LET e 
=20; LET W=2 

75 PRINT RT 6,26;" " 

76 RETURN 
e© REM 



©2 IP V.->4 THEN LET v =ö .- GO TO 
SS 

88 RETURN 

SS IF RTTR (e+l,»J=56 THEN PRX 
NT RT € , UJ ; ' " : LET e =e +1 ; PRXNT 
RT S/W; XNK 1;CHR* 14-8; BEEP -01 
/ll: GO TO 66 

9© RETURN 

100 rem /a^^ggsaMaaagaEassgjgg 

104- XF e es© THEN FOR i =2 Tu 4-„- P 
RINT RT i/15;" ".- EEEP „01,i: NE; 
XT i : RETURN 

106 IP e=12 THEN POR i =10 TO 12 

: tt 5R™T ß I i/15;" ": SEEP *&1,X: 
HEXT i : RETURN 
110 REM Blä^sjBggJHiAJIM 

112 INK 4-: PRINT RT 6,27;CHR$ 1 
51; RT IS/ 27; CHR* 151: INK 0: RET 
URN 

13© REM _____ 

131 LET 2=2+1 

136 IF 1=1 THEN PRXNT BT Je , l ; " 
" : LET H =2 : LET L =27 

137 IF 1=16 THEN PRINT BT fc . t ; " 
": LET fesfi- LET 1=17 

138 PRINT RT K/t;" " 

14-0 IF NOT RTTR "t K +1,. 1 3 =61 THEN 

LET R=&+1: GO TO 146 

14-2 LET 1=1-1 

14-6 IF RTTR i7,,L.^57 THEN GD SL* 
3 ©080; PRINT RT S/üt;" ": LET e~ 
20; LET #=12 

14-S IF HQT t THE« PflIMT 53T fc , t ; 

INK 2; CHR$ 152: LET t=l: RETURN 

H9 PRINT RT fc.,L; INK 2; CHR* 1© 
e»: LET t -gLL^R E^ RN 

162 IP RTTR (e+l/W>=62 THEN PRJ 
NT RT e / fei ; CHR* 1 63 ; RT e - 1 , m ; 



WQNöT ER-KÜG'E ! 



4; CHR* 14-8; BEEP .01.. 31: BEEP , 
01/33; BEEP .01/31: BEEP .61,33; 
FOR isl TO 5: PRINT RT e,w;" ": 
LET e=e-l; PRINT RT e,w; INK 1; 
CHR» 14-S: BEEP ,01,23: NEXT i : f* 
RINT RT e/W; M "; LET &J=W+1; PRIN 
T ST e / w ; INK l; CHR* _4.fi; RT e / w ; 

164- IF NOT tt* THEN CLS .- GO SUB 
7303: GO SUB 6009: RETURN 

165 PRINT RT 12 t Oj" ": LET o =0 * 
1: IF O>30 THEN LET 0«1 

167 IF RTTR (12 /Ol =57 THEN GO 6 
ÜB 3O00.- BRXMT BT e,w;" " : LET & 
=20: LET »=2 

16S IF NOT t THEN PRINT RT 12,ö 
; INK 2; CHR« 161: LET t«l; RETUR 
M 

169 PRINT RT 12/0; INK 2; CHR* 1 
S2 : LET t «0; R ETURN 

170 REH 

171 IP e=21 THEN CLS ; GO SUB 7 
400: GO SUB 8809.- RETURN 

172 PRINT RT 3/C; PfiPER 7; INK 
S; " ": PRINT RT S/O+l; PRPER 7; 

ink ©; " " 

173 LET ü=o-i: IP o ^2 THEN LET 
0=29 

174 IF NOT t THEN PRINT RT 9,o; 
INK 4-; CHR* 1 54-; CHR* 155: LET t » 

1: GO TO 176 

175 PRINT RT 9,o; INK 4-; CHR* IS 
5; CHR* 1S4-.- LET t =0 

176 TF e=B R*H> RTTR l£ 4-1 , W> =60 
THEN PRXNT RT S/W;" " : LET «sO,< 
PRINT RT e,w; XNK 1; CHR* 14-3 

179 IF BTTR (8,C*=57 THEN GO SM 
S 6000; LET fi=4-.- LET fti=2S 

ISO PRINT RT S/C;" "; : LET c=c + 
1: IF C>30 THEN LET C=l 

161 IF NOT t THEN PRINT BT 6/C; 

INK 2; CHR* 161: GO TO 1S3 

182 PRINT RT S,c; XNK 2; CHR* 1& 

*"l63 IF W <7 THEN GO TO 1SS 
184- IF e>15 THEN PRINT RT fi/«; 1 ' 
": GO SUB 8005; LET e=4-; LET Ws 

37 ______^ 

136 REH fcflafafe«hirfJglJ8—3i»B 
138 IF &=R RNCt €<±& THEN PRXNT 

BT 12/2;*" ";RT 13/2;" ";flT 14/2; 

" ";RT IS/1;" ";RT 16/1;" "; 

RT 17,1;" ";RT 18/1;" ";RT 19,1; 

"... ,,";RT 20/1;" ";RT 21/ 

^169 RETURN 

190 REM 

191 XF RTTR *e/W-l> =Ä4-9 THEN 
XNT RT 2/21;" ": FOR i =1 TÖ 20: 

PRINT RT i ,27; " ": BEEP ,01/ 

i : HEXT i : FOR i =18 TO 20: PRINT 
RT i/31;" ": NEXT i: LET w=21 

192 JF W.*30 THEN LET 3lzZl+{&&® 
-2) ; GO SUB 7000: POR j =18 TO . 
: PRINT RT i/0; INK 2; " 8" : NEXT 
i: PRXNT RT 21 ..5;" ** : LET e =£0 
: LET W=l; LET p =$ : RETURN 

193 IP RTTR te+l f wt.\*&s THEN PRX 
HT RT £/W;CHR* 163; RT S-l/W; XNK 

liCHR* 14-Q: BEEP -Ol/ 31; BEEP . 

01,33: BEEP ,01/31: BEEP ,01,33; 

FOR i =1 TO 5: PRINT RT e,w;" ", 

LET fiee-I: 'PRINT RT C,tf; XNK 1; 

CHR* 14-8; BEEP ,01/23: NEXT i; R 

RINT RT C/W;" ": LET W =» +1 : PRJ» 

T RT e/w; XNK l;CHR* 14.8; RT e/W; 

194. PRINT RT 14 /d; PRPER 7; XNK 
0;" " ; PRXNT RT 13,d-l; PRPER 
7; IHK 0; " 
196 LET ä=d+Z: IF d >23 THEN LET 

d=3: PRINT RT 13,20;" 

193 IP NOT t THEN PRINT RT 14- , d 
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; • IHK SjCHR* 154; chr* iss; let t 

~1: GO TO 202 

20© PRINT «T 14-,d; INK 2;CHR$ 3. 
55;CHR* 154- : LET t =0 

202 TP e=13 AN£> RTTR fe*l,wJ=5S 

THEN PRINT RT 6,w;" " : LET w =W + 
4-; PRINT RT e,w; INK 1; CHR$ 14-8 

20-1- IF RTTR te +1,1«) =189 THEN PR 
INT RT ß # w;" ": GO SUB 3£>0S.- J.FT 

6=3: LET W=5 

206 RETURN 

220 REM 



EOMEEN 



TEUFEL 



223. IP n>3 THE*l GO TO 2-28 

222 IP n=3 THEN PCR i =15 TO IS: 

PRINT RT i , 13; " ": NEXT i: LET 
n=4-; GD TD 223 

2ÄS PRINT RT 2,24.; Z: IP 2 = 120 T 
HEN PRINT RT 3,11; FLRSH 1; IMK 
2; "LEIDER NICHT"; RT 3/11; FLASH 
1; INK 2; "ÖE5CHRPPTJ J » "; POR i *r£. 

TO 30: POR J=I TO 5; BORDfR J.- 
3EEP .01,J: NEXT J: NEXT i .• BORD 
ER 5 : LET i =0 ; LET ii =0 

228 PRINT RT X , 32; " " : LET xsXt 
1.- PRINT RT X ,22; PRPER 6; BRXGH 
T i; CHR$ 159: IP X > 10 THEN LET X 
ä4 

23© IP RTTR te,»}*lia THEN GO S 
ÜB 8000: LET e=7: LET W =9 
„331 IP X=4 THEN PRINT RT 11,22; 

333 IF W=3 THEN PRINT RT 9,0; " 
";RT 10,0;" "; PRINT RT 10,1 
; INK l;CHR$ 14-8: LET i =© 

233 IP RTTR *e,w+l)=134. THEN GO 

TO 24-3 

237 IP RTTR Ce*l,Wi=189 THEN PR 
XNT RT e , W ; " " ; GO SUB S000 : LET 

e=4-: LET W=S: RETURN 

340 RETURN 

24-3 IF e=7 THEN PRINT RT 3,28; '* 

";flT 7,37;" "; INK 1; CHR* 14-S: 
LET W=28: POR i =6 TO 17: PRINT R 
T i-1,29;" "jflT 1,29;" "; RT i , 29 
,; CHR* 1S3;RT i+l,29;CHR* 152.« • BE 
EP .01,13: NEXT i: PRINT RT 17,2 
9;" ";RT 13,29;" ": LET n=n*i 

24-5, IF e=ll THEN PRINT RT 10,27 

;" ";rt 11,26;" ■*; ink i;chrs ±a 

3: LET W=27: POR i =10 TO 17: PRI 
NT RT i-1,38;" " ; RT i,2S;" " ; RT 
i, 23; OHR* 153; RT j+-l,2S;CHR* ISS 
: BEEP .01,13; NEXT i, PRJNT AT 
17,28;" ";RT 13,28;" ": LET n =n + 

™*34.7 IP ß=15 THEN PRINT RT 14-, 2& 
; M ";RT 15*25;*' **; INK 1; CHR$ 14. 
3: LET W=26: POR i =14- TO 17: PRX 
NT RT i-i,37;" ";RT i,27;" ";RT 
i,27;CHR$ 153; RT i +1,37; CHR« ISS 
; BEER -01,13: NEXT i: PRINT RT 
1-7,2-?;" ";RT 13,27;" ": LET n =:n * 
1 

250 RETURN 

4.0© REH 

4.02 IP NOT p THEN LET ±»=7500 
4-04- IP p=l THEN LET b=7000 
4-0© IP p=2 THEN LET b=7110 

4.03 IP p=3 THEN LET fa=7210 
4-20 RET URN 

3005 LET f=0: REH HEBEL GETROPPE 
NT 

3006 LET q=0: REM RUF TREPPE SOH 
RITT WEITER 

5010 IP INKEY*="n" THEN PRINT RT 
„*'££" " : XF RTTR (e ,11« -13 =56 THE 
N LET w=w-l 

S012 IP INKEY*="m" THEN PRINT RT 
ß,w;" ": IF RTTR te,W+lJ=58 THE 
H LET »=W+1 

^013 IP W>31 THEN LET U* =1 .■ LET p 
•P-l: LET Tü=0: CLS : GO SUB 721 
0: GO SUB 8009: LET & =4 
5014- IP RTTR fe+l,W)«S6 THEN PRI 



FIT RT e,w;" ": LET e=e+l 

S01S IP INKEYÄ="N" THEN PRINT RT 

£,*>;" ": IP RTTR te-I,W-U=56 T 
HEN LET e=e-l; LET Wstf-l; LET V« 
v+1; GO SUB 30 
5013 IP JNKEY.* = "W" THEN PRJNT .RT 

S,t*;" ": IF RTTR (fi-l,W+l)=S6 T 
HEN LET e=e-l: LET W=W+1: LET vs 
V-fl: GO SUB 30 
3019 IP RTTR J£-2,W)=60 THEN LEX 

f «1 

5020 IF NOT RTTR <e+l,W) «SS THEN 
LET V=0 

5021 XF W>31 THEN LET W=l; LET p 
=p-l: LET ros«: CLS : GO 5L® 73J 
0: GO SUB 3009: LET e =4. 

5022 IP INKEY$a"2" THEN FOR i =1 
TO 2: PRINT RT e,»;" " : LET e =e - 
1: PRINT RT e,w; INK 1;CHR$ 14-B; 

BEEP *&2 r 12*. NEXT i .« PRINT RT & 
, W ; " " : LET e =e +2 : IP f =1 THEN © 
O SUB 30 
5030 IP NOT 3 THEN PRINT RT e,w; 

INK l;CHR* 14-3: LET 3=1: GO TO 
S032 

503a PRINT RT £ r w; INK 1 ; t«R* 14- 
9: LET 3s0 

5032 LET 2=2+1: GO SUB g: IP NOT 
i THEN GO TO 9900 

5033 IP RTTR fe,W+l)=59 THEN RR I 
NT RT e,w;" ••: LET e=e-l: LET »« 
W+l: LET q=l: BEEP -02,21.* GO TO 

5030 

5034. IF RTTR te , W -15 =59 THEN PRI 
NT ßT CyW; .. ... LET e - e - 1: let^ Wsi . 

w-1: LET q=2: BEEP .02,21: GO TO 

503© 
504-0 IF RTTR fß f fi«+l.l=51 THEN PRI 
NT RT e,tf;" ": LET e=fi-l. LET q = 
1: BEEP .01,17: GO TO 5030 
504-4. IP RTTR le,W-13=51 THEN PRI 
NT RT e,w;*' ": LET e=e-l: LET q« 
3: BEEP .01,17: GO TO 5030 
504-6 XF q<>0 THEN GO SUB 50: GO 
SUB 20 

5058 IP NOT e RND W =4- THEN LET p 
wp+1: GO SUB 4.00: LET e =20 : LET 
W=3: CLS : GO SUB b: GO SUB S009 
5060 IF e=21 THEN LET ru=to: LET 
P=p-1: CLS ; GO SUB 4-00: GD SUB 
b: GO SUB 8009; LET 6=0: LET W =6 
: GO SUB 20 
5100 GO TO 
7000 REM 




7001 LET 2=0: IF NOT ru THEN LET 

Z 1=2 1-300: LET ru=I 
7005 CLS ; LET 3=60 

7003 INK 5 

7 010 PRINT RT 1,Ü "— ^^"; flT 1,8; 

0; , *" lB ;flfr 5;, 37; " "1 

7012 PRINT R T 9,3 , t '^ m M" ; RT 9 ,9; " 
*";flT 9, 13; •■^ ■^^■.«j flT 9,2l;"**"; 
RT 9,26l,^3C"' ßT 13,4-; " ■"'"'iflT 
13, 10; "*^^**"; RT 13, I 9; n ' "; 
RT 1 3,37 ;"— ";RT 17. 3; "» —";RT 1 
7,8; ""^i '^WT 17,14-; ""*^";RT 17, 
21; ••■■■■«*•; RT 17, 28; "^" 

7013 FLASH 1: PRINT RT 2,23;"^"; 
RT 3,23; "V;ffT **33J"V: PLRSH e 

7014 INK 2 

7016 POR i =0 TO 21: PRINT RT i,£* 

; "■**; RT i , 31; "■" : NEXT 

7013 PRINT RT 21,1 ; "| 

HB" 

7019 PRINT RT ,9; "ERDQE3CHQ33" 

7030 INK 0: GO SUB 8009; GO SUB 

7180: RE TURN 

7100 REM 

7105 LET e=20. LET fa> =4- 

7110 CLS : LET 2 1=2 1+ (800-2 > : L£ 
T 2=0; IP NOT fü THEN LET 2l=2l- 
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1600: LET ru=l 

7120 IH K 5; PRINT BT X , 1 ; " 

■"""RT 5,27; "■"JfiT 5,3ö; "*";fiT 
__"■»"; AT 9,6i"' |M iflT 9,13; " 
**; AT 9,26; "31"; RT 13, Iß; " 
";rt 13,19; ,,lwpr iRT 13,23; "~ 

";ftT 17,5; "»™™m-« ;RT 17,3 2; " 
""^ ";ßT 17 , 29; — " ;flT-2l i l; "— -■» 
^RT 21..8; »—■■——«——* _— — «h f f 

7122 IHK 2: FQR i =0 TO 21: PRINT 

RT i , 0; "M" ; RT i , 31; "B" ; NEXT i 
7124 LET U$=CHR* 164 : INK 3; PRF> 
ER 6: FRI?4T RT lj4;u$jBT 2,4;u*; 
«T 3,4;u*;RT 5,19;u*;RT 6,19;u$; 
PST 7, 19; u*; AT 8,l9;u$;flT 5,29; u$ 
;AT 6,£3;u*;RT 7,29; u«; AT S,29;u 
*;AT 13,3®;u$;RT 14- , 2©; l* *; AT 15, 
a©;u*; AT 17, 26; u*;RT lS,2S;u$;RT 
19,28; U*;RT 20,2S;u$: FOR i =9 T 



O 1! 



PRINT RT i,3;i»*; .HEXT i 



7126 PßPER 7 

7130 INK S: FLRSH 1: PRINT RT 2, 

15; "V;RT 3, is; "V*;RT 4,is; "V;» 
T 10.15; "J«";RT 11,15; *'«F";AT 1S,1 
3; "W*" : FLRSH 

7134- INK 4-; PRINT RT 6,27; CHR* 1 
31; RT 10,27; CHR* 151: INK 

7is& print at 20,14; ink sj**I";r 

T 20,15; IHK 5; FLRSH 1; "A" : FL 

RSH 0: INK © 

7137 PRINT RT 0,9; "1. ETRGE" 

714-0 LET p-2; LET 9=130 

714-5 GO SÜß 71S0 

7150 RETURN 

7179 REN SCORE 

7160 PRINT »0;" '«; PRPER S 

; INK 7; " S c D R E .■ ";*J;" "V 

RETURN 

7200 rem ^^g^ giaBBHgE^mB^ 

7205 CL5 ; LET £=20: LET ü> ~4- 

7210 LET 2l!szl+rS0ß-2.1: LET 2*0: 
IF NOT fü THEN LET Zl=Z 1-1600 : 

L.ZT ru-l 

7211 PRPEP 2: INK 7; FOR i =0 TO 
31: PRINT RT l,ijCHR* 156; RT 2,i 
;CHR$ 157: NEXT i: INK 2: PRPER 
7; PRINT RT 3„3i;"_f";RT 4,31;"!: 
-■ FOR i =5 TO 21.- PRJNT AT i,0,-% 
";RT i,31;"B": NBXT i m 

7212 INK 5; PRINT A T 5 ,1; "»";flT 

?_ 9 B r"^T^ ftT SjISJ "~™""iBT 5.25; 
~* ;RT &, IS; *'_^ *';RT S, 30; "~»";RT 
7 , 18; "I " ; RT 8 , IS; "I " ; AT 9, 12; "** 

?M»T __ 18; "j ";RT 9,20; "■-«-»" ;RT 
S,6J "—-*»; flT 10,17; "F* " ; AT 1G»_27 

"7" ; RT 13,15; "I " .'■ &T 2Z % . &&;. ' 'Mo 
"* ; RT 13 , 30; "■■" ; RT 14 , 15; "1 " 
jRT 15, 15; "1 ",; RT 16,16; "1 ", RT 17 
i; ,,aB, *;RT 17,3; "_-_?__; rt i?,i&;- 




•';RT 17 , 23 __•' 



";at 13,10 



'„■•'*T 15, 15; "»* ";RT 21, 1; " 



^3; "* 



«fe-4 



;rt 21 



7214 INK S: PRINT RT 10, 29; "*■" ; R 
T 13, il; "»•*; RT 13, 19; "■»"; RT 17,3 



• RT 21 
72 1&' INK 3; PRPER ■&; PRINT BT £5 

S;u*;rt ©,S;u*;RT 7,2;u$;AT 8j£, 
u*;RT 9,2; U*; PRPER 7: PRINT AT 
13,29; CHR* 144; RT 14,2S;CHRS 14* 
;CHR$ 145; RT 15,27; CHR$ 144; CHR: 

145; RT 16,26;CHR* 144; CHR $ 145 

INK © 
731S INK 4; FLR5H 1; FOR i =3 TG 
11: PRINT RT x , 14; "\" : NEXT i .- J 
LBSH ©: INK 

7220 PRINT RT ©, 9; "DRCHSESCHOSS 
7230 LET ps?3: LET 9=16© 
7235 GO SÜ& 71S0 
7240 RETURN 




730© REM 



BI.L.E'R-UrBRU 

i 4 iT 



BhLKDH 



7305 CLS .- LET e=4; LET fci«U_ 

7310 LET 21=21+ (S00-Z3 : LET 2=0: 
IF NOT fU TMEN LET 21=2 1-1600; 

LET ru=l 

7311 INK 7; PRPEfi 2: FOR i =29 TO 
31: PRINT RT 8,i;CHR$ 156- NEXT 
i; PRINT RT 1,26; CHR$ 156; CHR* 

157; CHR* 157; CHR* 157.- PRP^P 7: 
XHK 

7312 PRINT RT 5-2 6; INK 5; •«»im 

*;RT 12,0; ■•Mii_iiiiita» . PRINT RT 5,31 
; PRPER 2; INK 5; ,,_t ": FOR i =6 TO 

31; PRINT RT i,31; INK 2;"»"; H 
£XT i 

7313 PRINT RT , 9; "BftLKÖN" 

7314 f=DR i =3.2 TO 21: PRXNT .RT j .» 
0; INK 5; "SM-ttT-- NEXT i; FPR i =1 
9 TO 21: PRINT RT i,4; INK 5; "KP 
H"; NEXT i: FOR i =7 TO 39: INK £ 

: PLOT i ,75; DRRW 16,-35: DRAU ® 

, -Ifi: DRAU 32,-26: NEXT i 

7316 PRINT RT 17,7; INK 5; FLASH 

i; "^WÄAÄÄöA^Wi" ; r^ 

15,8; ", 
RT 19,9; " 
;rt 20,18;", 
;;;rt 21,11; 

7315 FOR i =7 TO 11: PRINT RT i,aü 
; INK 7; PRPBP !;"■"; NEXT i 
732© INK 0: PRPER 7; LET p~4-: LH 
T 9=170 

7325 LET O =29 

733© GO SU5 718© 

73S0 RETURN 

740© REM 




SILDRUFBRU 



t-'OR 'GARTEN 



RT 19,0 



RT 




74®1 LET rlszl4{SSS-ZJ 
7402 LET 2 =0 

7405 LET e=0; LET üi=5; CL5 ; LET 
P=5: LET S=1S0 

7406 PRINT RT 0, 9; "UORGRRTEN" 
741© I NK 5: PRINT RT 4,26; " m " ; RT 

4,4; """"/RT 7,2; "M";R T 9,2 1; '• 
m ";RT 9,26; """;RT lfi , 6; «——■«• - ^ 
T lfi, 1 ;"»■■"; RT 13,26; ••■■" 
7411 INK 4: PRINT RT I,9;"oooooo 
OOOOOöOOOOöO"; FOR i -B TD 11»- P.R 
INT RT i__; m O"; NEXT i ;PRXNT RT 

13,a;"| |";flT 14,0; "■■■■r , ;RT 
X5,0; "■■|»^RT_16 J 0;^r^^ 
BT 17 , 07^ ^■■IHi" ;_RT 18 

~[" ;rt 2 

;RT 21,ß;"ÜB 
1 9,26; "■ "'; RT 20,26; *• 

";RT 21,26; "■■■■r , ;RT 17,26;"«« 
": INK * 

7413 INK 6: PRINT RT a 1 3 ; " mmmmm ' t 
;RT 9,2fi;' ,— "*;RT 13,25; " —f " 

7414 INK 3-- PRINT RT 5,24;"3 , ';RX 
4,25; "3"; LET f«S: FGR i taÄÄ TO 

21: LET f«f+l: PRINT RT i,f; INK 

3; "H" ; NEXT a 
7416 FÖR i =0 TO 21: PRIW7 «T i ,*3 
l; INK 2,* "Ä" : NEXT i 
742Ö INK 5; FLRSH 1: PRINT .RT SE& 

7421 INK 2: FDP i ==1 TO 17; PRINT 
RT i ,27; INK 2; "■ " : NEXT s 

7422 PLOT 216,167; DRRW ©,-12S; 
ZNK : DRRW 31 f -30 

7424 PLOT 224,32: DRAU 0,48: DRR 
U 11,6,-2; DRAU ©,-23,-1: DRAU & 
, -50 

7426 PLOT 224,71: DRRlt 16,-16; P> 
LOT 224,68: DRRW 16,-16; PLOT 2B 
4,47: DRRU 18,-16; PLOT 224,44; 
DRRU 18,-16 

7425 PLOT 227,64: DRAU 16, »35 
7429 PRINT RT 18,26; INK 5;" " 
743© PRINT RT 2,21; INK 1; BRIGH 
T 1; FLRSH l;CHR* 15& 
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74-33 GO SUB 7180 
"7*34. RETURN 
"7500 REM 



BTL-DRUFB#L&- KELL ER 

f6,ßiL&r 



7502 LET z=©; LET x =4 

7503 CLS 



7505 PfiPER 
751 IHK 1 

©; 



PRRER 6: PRINT RT © 

JHHi. 
["; RT i , @ 





3,12; 

.. ";rt 4,2, 

,; RT S , 4; "flB" ; rt; 

";RT S,&v "J§ 

";RT 8,23; "B 

";rt H; 

12,19 
""" ; RT 



r» 



FO 



5?_ 



7514- FOR i =3.5 TP 21: PRINT RT i 



HEXT i: FGR i =2 TO 21: PRINT RT 
i,3Ij "»" : NEXT ä 

7515 FOR i =15 TO IS: PRINT RT i, 
13.; "Ä" : NEXT i 

7516 INK ©; PRPER 7; PRINT RT ©, 
13; "KELLER" 

7520 INK 3; LET J=3.- FOR i =11 TO 

IS; LET jaj+i: PRXNT RT i rf J; 
$ 14-6; CHR* 14-7; NEXT i 
7522 FOR i -S TO 14-; PRINT RT i , ; 
3; INK 3; PRPER S;u*: NEXT i 
7S24 INK 7; FOR i =11 TO 14: PRX! 
T RT i , 12; "ffi" : NEXT z 
753© ZNK B: RRPER 7; FLRSH 1; 
i =19 TO 21; RR INT RT i 
_"; NEXT i; FLRSH 
7532 INK 0; FLRSH i: PRXNT RT ©, 
28; CHR* 153; RT 7 , 2S; CHR* 152; RT 
10,27; CHR* 153; RT 11,27; CHR* 15S 
; RT 14- , 26 ; CHR* 153 ; RT 1 5 , 2© ; CHR f. 

3.5S: FLRSH 
7534 INK 1- PRJMT RT JB r i;CHW* 3 
4.3 : FOR i ==3 TO 23 STEP 3 ; PLOT X 
,103: DRRU ©,-15; NEXT i: PLOT 3 
,103: DRRU 2© , © 

754-© INK 0; PRPER 7; GO SUB 8009 
: LET £=©: LET W=5: LET g =22© : L. 
ET p=B 
?54-3 GO SUB 718©: PRINT ttl; " 

BEI 120 KRACHT ' 5 I" 
754-4 RETURM 
755© STÖP 
800© REH 



FE ST ST ELL EN W IE U IE L 

iLff?£:N 



•3005 LET ßW=MV-fl; LET Zl=7l-10B 

§1 9 REM JF NOT »V THEN LET »*=' 

:I?#M$": GO TO 804-0 

5010 IF rftV=l THEN LET m* = '" 

: GO TO 804-0 

S01S IF mv=2 THEN LET ro* = "! 

- GO TO 804. © 

SB 14- IF »v=3 THEN LET »* = "< 

: GO TO 804-© 

■3016 IF I»v=4 THEN LET *»* = "$" 

: SO TO 304-0 

■3018 IF J8V=5 THEN LET »» = " 

: GO TO 304-0 

802© IF av=S THEN CLS : PRINT RT 

3,7,""RLL£ SPIEL-FIGUREN"; RT 5, 1 
4; "5IND";RT 7,12; "VERLOREN! ": FO 
R i =4© TO 1 STEP -1; BEER ,05,3: 

NEXT i : GO TO S©5© 
3040 PRINT RT 0,24; INK l;m$} IM 
K 0: FOR i =1 TO 10; BEER , 01 f i ; 
HEXT i : RETURN 



3©5© LET i = 

300© REM __ 

9005 RE STORE 



LET ii =i 



RETURN 



FOR i =sl TO 17: RERD p* 

3012 FOR J=© TO 7; RERD a : POKE 

USR p*+J,a: NEXT J : NEXT i 

3016 DRTR "b'%24.,24,36,90,90,36, 

24,24; REH HEBEL (O.HR$ 1E1.J 

3©1S DRTR "3" ,©,2,6, 14, 30,52, 13© 

,254: REH ROLLTREPPE 1 CHR* 1 44-J 

302© DRTR "b",8,254 / 252,24S,24©, 

»24,132,123; REM ROLLTREPPE (CH&Si 

14-5) 
3022 DRTR " C " , © , 127, 63 , 31 , 15 , 7 , 3 
, 1: REH ROLLTREPPE (CHR* 14-S> 
3024 DRTR "d " , / 54 , 95 y 112 , 120 , IS 
4, 126,127: REH ROLLTREPPE t CHR* X 



*P , 36 , 12ti , 255 f 2 19 , S5S 
REM TEUFEL fDHP* 159.^ 
"U" ,24,60, 126,255,255, 
REH KLETTERSTANGE CCHK' 



S26 DRTR 
, 102,60,50 
302S DRTR 
355 ,60,60 : 
$ 164-5 

S®3© DRTR "q", 60, 110, 255,63, 15,3 
3 , 126 , SO : REH KUGELMONSTER (CHR* 
3.60) 

9®33 DRTR " i " , 6© , 1 1© , 255 4 ..2S5 ,.255 
,255,126,50; REH KUGELHON5TER/BP 
rlöECCHR* 152.* 

3035 DRTR " t " , © , 126, 129, 126, 129 , 
126 , 129 , 126 : REH SPRUNGFEDER { CHR 
$ 153) 

383S DRTR "f" ,48,56,60,255,255,6 
2,0,0; REM VOGEL (CHR* 1513 
3040 DRTR "S ", ©,©, 0,255 ,255, 50 -^ 
5,46: REH VOGEL (CHR* 152? 

3042 DRTR " l " , , 30 , £55 , £25 , © , , 
,0: REH TEPPICH (CHR* 155) 

3043 DRTR " K " , S©,2©4., 195,© ,© , ©^ 
,0: REH TEPPICH (CHR* 154) 

S044 DRTR " O " , 127 , 65 , 127 ,8,8, 123 
= 56,120: REH SCHLUESSEL (CHR* 156 

^®ä 5 ^ £ ßTß _ " f " ' s © ' iss ,219,255, 125 
,00,36,195: REH FLOH £ CHR* 149J 
304-6 DRTR ~ J" , 1 ,32 ,© , 4-, 132 ,"8,S, a 
: REH BOMBE/LUNTE (CHR* 153J 
505© RETURN 
3098 
3099 REM 



WRIfiBLEM 



3100 LET R=2; LET t =17.- REM 
LRUFURRIR5LEN DES 
K UGELMON5TERS 



3101 LET p=l: REH 
BILDZREHLER 

9102 LET Z=0: REH 

PUNKTE -ZREHLER PRO BILD 

3103 LET Zl=0; REH 

PUNKTE -ZREHLER GESRMTES 
SPIEL 

3105 LET b=71®0; REH 

SPRUNGRDRESSE BILDRUFBRU 

3106 LET V=0: REH 
SPRUNGZREHLER 

3107 LET y=2: REH. 
LRUFURRXRBLE 2 «TOTENKOPF 

3108 LET 3=5©;' REH 

SPRUNGRDRESSE IN DRS 
JEWEILIGE BILDENTSPRECHEMDSE 
UNTERPROGRRHH . FESTLEGUNG 
IN 7000-7500- 
RUSSERDEH STEUERUNG DER 
TÜTENKOEPFE IM I.BILD 

3109 LET X=&: REH 
LRUFURRIRBLE 1. TOTENKOPP 



Computronic 



3110 LET JftV=<3: REM 

STELLT FEST UIEUIEL SPIEL - 
FIGUREN UORHflNDEN SIND 

3112 LET lß* = "*HWSft#": REM 

FESTLEGUNG AB ZEILE B©^© 



3213 LET e:*28_- LET W =3 ; REM 

LAUFURRIABLEN DES FLOH'S 

3114. LET Osi: REM 

LAUFUARIABLE UOGEL 3, BILD 
UND TEPPICH **eiL0 

3 HS LET t=0; REM 

FIGUREN -BEWEGUNG UOEGEL 
UND TEPPICHE 

3116 LET C=0: REM 
LRUFUARIABLE UOGEL 4- -BILD 

3117 LET d=&: REM 
LAUFUARIABLE TBPPXCH 5 -BILD 

3119 LET a=0: REM 

FIGUREN -BEWEGUNG FLOH 

313® LET n«0: REM 

FESTSTELLUNG DB ALLE 
BOMBEN IM WASSER SIND 

3 las REM LET 
752Ö 



J=ZREHLER IN ZEILE 



3123 REH LET f =H£BEL GETROFFEN"? 

3124- REM LET q=RUF TREPPE 
SCHRITT WEITER GEHEN 

3 135 LET i -1: REM 
SPIELENDE UBNN i =B 

3136 LET ii=l; REM 

BOMBE EXPLODIERT WENN i i =B 

3137 LET ru=l: REM 

IN DRS UNTERE BILD 

GEFÄLLEN UENN ru=© 

31SS REM UDG'S; 

CHR$ 1 44./ 1 45^1 4S/1 47 aROLLTREPPF 

CHR$ 148./14.S=FLOH 

CHR$ 151 =HEBEL 

CHR$ 1S£/160=KÜGEL«ON5TER 

CHR$ 1S3/15S =B OMBE 

OHR* !S4-./lS5=FLIEGENDER TEPPJOH 

CHRüf 156/I5?=DflCHZIEGEL 

CHR« ISS =SCHLUES5EL 

CHR$ 153 cTEUPELKOPF 

CHR$ lSlylS2=UDGEL 

CHR$ 163 =SPRUMSFEDER 

CHR$ 164- =KLETT£R5TANGE fu*.* 
UND UMLAUTE 

CBR* 144-.'15SxI©2ylS4 

3130 RETURN 

3131 

3300 REM 



D-MC HZ IE- GEL 



3301 RE STORE 3306 

3302 FOR i=l TO 7: READ q£ 

3303 FOR J=0 TO 7: RERD c: POKE 
USR q$ + j,C: NEXT J .- NEXT j 

3206 DATA " U "" , 40 , & , GS ,SS , SS , SS „ gt 
^£®i, £ EM UMLAUT UE(CHR$ 164-) 

,0: REM UMLAUT RE fDHR* 144J 

3208 DRTft , 'S",55 / &S,68,1£0,68,6S 
, 1SB,64; REM UMLfiUT 5CHRRFE5 "S" 
i'CHRS 1&2^ 

32Ö9 DRTR " O " , 40 , O , SS , SS , SS , 63 , 5 
0,0: REM SCHLUESSEL fCHR* 1SS\> 
9210 MTR "»",255, 129, 129, 129, 1J* 
3,129,66,60; REM DACHPFANNE (CHR$ 
15t>J 




3211 DATA "n" , 255 ,24 ..24, 24 ,24-, 2* 
/36,19s.- REM S>ROHPf ! mmE i CH.R& JS7 

3212 DATA "fi ", SB, 126 , 213,255 , 12B 
, 60 , 36 , 102 : REM FLOH f CHR$ 1 4&.1 
3214 RETURN 

"3499 

3510 BORDER 5: PRINT BT 0,©;"1". 

PRINT JS0;"1"; CLS 
SS2© PfiPER 3 : IHK 7 ; FOR i =© TO 
2: PRINT RT i ,©; " 

" : NEXT i : PRXN 
T AT 1,0;" H G G P R R E S E N 
T I E R T " 
353© PAPER 2: PRINT RT 3,18;CHR$ 

156: FGR i =19 TO 25: PRINT AT 3 
,i;CHR$ 157: NEXT i: PRINT RT 3 , 
26; CHR& 15&; PRXHT RT 4, 17; OMR* 
ISS: FOR ialS TO 26: PRINT RT 4, 
i ; CHR$ 157: HE.XT i : PR I«T AT 4,2 
7.;CHR$ 15S 

3535 2NK S ; PLOT 144,135: DRAU B 
, -3S: PLOT 215,135." DRAU 0,-33 
3540 PLOT 112,lß3: DR«« &,-32: & 
RBU 9,-lS,l: DRRU -9,-45,-1: PLO 
T 24.7,103: DRRU ©,-32: DRRU -9, - 
ISj-l; DRRU 9,-45,1 
354- 5 PRINT AT 13,19; JNK 5; 



3550 INK 5,- FOR i = 1 44 TjD JEU/ PL 
OT i,4S; DRAM 15,15. NEXT i: FOH 
i =192 TO 199; PLOT i , S3 : DRRU 1 
5,-15; NEXT i 

3552 FOR i=lS TO 20: PRINT AT i, 
13; "jR"; AT i ,&&;"■"; NEXT x 

9555 INK 0: PLOT 112, 1©3: DRAU 1 
1,0: DRAU © , -7 : DRAU 7,0: DRRU © 
,7; DRRU 11,©: DRAU 0,-7: DRAU 7 
, S: DRRU 0,7; DRAU 11,0: DRRU , 
-31 

3557 PLOT 247,2.03: DRRU -10,0/ 4? 
RRU 0,-7: DRAU -7,0; DRAU 0,7; P 
RRU -11,0; DRRU 0„-7: DRRU -7,0„ 
DRRU 0,7; DRAU -11,0; DRAU , ~3 

3553 PLOT 171, 9&; DRAU 0,15: J>Rß 
U 15 , 2» , -3 ; DRAU © , -IS 

'3560 OVER 1: INK 3: PAPER 7: FOR 
J=1S0 TO 199 STEP 3: PLOT i,113. 
: DRRU 0,-lS; NEXT i 

3562 PLOT 16» > 1®S : DRAU 48,0: PR- 
INT RT 10,20; " ' '■ " 

9565 QUER ß; INK 0; PLOT 129,71/ 
DRAU 0,9: DRAU 14,0,-3: DRAU 0, 
-9; DRAU -14,0: PLOT 217,71/ DP.B 
U 0,9; DRAU 14 , , -3 : DRAU 0,-9; 
DRRU -14.,0 

3570 PRINT AT 21,13; INK 4; PAPE 
R 7;*W;AT 21,14; INK 4; PAPER H 

* ' ^ mmmmmmmmmmm^mmm'Kl AT 21,31; X 

NK 4; PAPER 7; " m " 

3575 INK 1: PLOT 160, S; DRAU 0,3 
2. DRRU 39,0,-3; DRRU 0,-32: PLO 
T 162, S: DRAU 0,30; DRAU 35,0,-3 
: DRAU S , -30 

95S0 PLOT 171,52; DRAU 0,-38: &F? 
B\4 -7,-5: PLOT 1S4,52; DRAU & f -4, 
0; DRAU 10,-3 
359© PRINT RT 6,1;" 
§591 PRINT AT 7,1;" 

3592 PRINT AT ©,1;" ! 

3593 PRINT AT 10,2; 



U T 




INK 3; PAPE.P 
GO SÜß 9594; 



6; " ABO 

O TO 9599 . 

S5S4 LET »»=£&: L£T nn=17: FOR J 

s=l TO 20: FOR i =1 TO 2: LET »n»& 

?»-!: LET nn=nn+l: GO Süß 9595; P 5 

RINT AT Sil» +1,3;" ": PRINT AT »öS , 

3;CHR$ 14S: PRINT AT r>n-l f £.; 

AT nn,5;CMR$ 143: SEEP .01, i 

XT i: NEXT J; PRINT AT 17,5; 

RT 19,3;" ";AT 16,2; "Spiel-" 

1^,2; "Er K t "; CHP$ 144; "/-ung?"; 

ae,3;CHR$ 143;" ";CHR$ 148; " J ,* 



NE 



AT 
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H"; GO TO 9599 

3595 XF .»,«./! 8 TJdEh* PÄJNJ AT Jfl v .?. 

; " ": LET SS* -30; RETURN 

9598 IF nn>20 THEN PRINT RT 81,3 

i M ";ro* 2© ,5;" ": LET nn=18: RET 

URN 

=3597 RETURN 

9500 XF INKEY*="n" THEN PRINT #£» 

; INK 7; PRPER 1;"DX, Mo»eßt hi t 

te!" : pftPER 7: GO TO 9 

3S01 IF INKEY$="j" THEN GO TO 90 

®S 

3602 GO TO 9600 

36Ö3 

3605 INK 0; PAPER 6: C1_S 
9887 PRINT RT 1,1; "Ein Kleiner F 
loh und sein Freund, leben 
siustäg und froh, haben ein seh 
weres Schicksal zu meistern. 

Sä e sind bei m' 

herusüh";CHR$ I64;"pfen un- be 
»u"; CHR» lS2;"t in den Ein flu H ;c 
HR* 162; "berei ch eines Magier 

s geraten." 

3610 PRINT RT 8,1; "Zur Strafe sp 
lien sie im Keiler ßew";CHR$ isa 
; " l be der Behausung des H^ 

giers eingesperrt werden- Do 
ch siehe da: Nur bei einem Fi 
oh Klappt der Zauber, Jm 

aerhin: Ruch der 2wai t« äst in 

Bann des- Magiers, denn er bs? 
findet sich im Erdgescho"; CHR* 1 
S2; " des Zauber-Reiches, ohj> 
s einen sichtbaren Ausgang, 

Nun gilt es f";CHR$ 164 
;"r diesen Kleinen Floh f";cHR$ 

164; "r sich und seinen Freund e 
inen Rusweg zu finden* " 
9615 PRINT «0; " bitte Taste dröc 
K en • " 

9617 PRUSE 0: CLS ; PRINT RT 1,1 
; "Das spiel f";CHR* 164.;"brt di*r 
ch 6 Bilder und ist beendet, we 
nn der zweite, Floh aus des* 

Keller befreit worden ist* 



int ei ne 



Abschließend erschm 
HIGH «SCORE -Ta belle, 



U";CHR* 144; "h 
des Spieles wird der Run 

and jeweils bei» Bi l 

sei als aktuelle.*- zwl 

■stand angezeigt." 

3619 PRINT RT 14-, 1; "Bei der 

n-Eingabe Können mittels 

Graf i K. -Taste auch Umlaute 

hrieben werden: 

UDG " " 

";CHR$ 14-4-;" UDG "*'u"" 
HR* 154; n UDG ""o*"* = 



rend 
Ktest 

dwecfr 
scher* 

Nasa 
der 

ges c 

a " " a 
= ";C 

" ; cur 



$ 156;" UDS ""S"" = ";CHR* 1& 

a^"": wwr «ar bitte .rast* d 
rucken! " 

3S20 PRUSE 0; CLS ; PRINT RT & , & 
; "TRSTENBEDIENUNG: '* ; RT 8,3; "n - 

linRs";RT 10,7; "zuia Springen zus. 
tf ;CHR$ 144; "tZli fb M ;J?T 11,7; "CRP 
s shift" ;rt 13,3; "m a rechts";RT 
15,7; "zu« springen züs";chr$ 14- 
4; "tz li Ch";RT 16,7; "CAPS SHIFT",: 
RT 18,3, "z = hochspringen" 
3621 PRINT SB, " bitte Taste dr 

9622 PRUSE 0: PRINT »1; " ■*; IM 
K 7; PRPER 2;"Moment bitte*".- Pf* 

PER 7: GO TO 9 
9699 

990© REM 

9903 IF NOT i i THEN CLS ; GO TO 
3936 

9905 LET Zl=Zl+f 12Q-Z3 *4-©0 
9910 INK 1 : FOR i ^20 TO 11 STEP 
~1: PRINT RT ,11 — — |^— ■ ||| 

^■■iiilHlHrrBEEP .01,1? 
: NEXT i 

9912 INK 7; PRPER 1: PRXNT RT IS 
, 1;"DRNK DEINER HILFE MRT ES UNS 
ER";flrr 14,1; "FLOH BESCHAFFT sein 
EN FREUND"; RT IS ,2; "ZU BEFREIEN, 
";RT 18,1; "DIESER GRNG FUEH&T XM 

DIE" ; RT 20,1; 'TREXHEXT. " 
3914 GO SUB 9200 
99 IS 

9916 REM 

9920 INPUT "BITTE NAMEN EXNQEBEH 
i ";n* 

9922 CLS .- BORDER 5; PRPER 5.- Ifv 
K 0: FOR i=0 TO 21: POINT BT i *B 

"i NEXT i; GO SUB 7180: PRINT 
RT 2,5; PRPER 7; INK 2," HIGH 

-SCORE " 
9924 IF Zl>»S THEN LET »S=»»7; LE 
T 8*7=186: LET 0k6*>zl: LET e*=d$: L 
ET d* = C$: LET c$=n$; GO TO 993© 
9926 IF 21 >J*7 THEN LET »8a»7; LH 
T »7=Zl; LET e$=d$: LET d$=n*; G 
O TO 9930 

9928 IF zl>sS THEM L.ET fiS^zi.- l£ 
T e*=n$ 

3930 PRINT RT S^S;"!- ";c*;»T S, 
3 1 * ** ** * r& ß 

3932 PRINT RT Q,S;"2. ";d*;RT 8, 
9934 PRINT RT 18,5; "3* ";e*;RT X 

0,21;" ";jss 

9936 PRINT RT 13,14;"* * *" ; RT X 

7,7; "NEUES SPIEL? J/n" 

3937 PRPER 7: INK 

9938 IF XNKEY*b"j" THEN CLS : GD 

TO 5 
3939 X^ INKEY*-"n" THEN STQP 
9940 GO TO 9338 



A lifetime warranty. And manufac- 
turing Standards that make it aJmost 
unnecessary. 

Consider this: Every time you take 
your disk for a little Spin, you expose 
it to drive heat that can sidctrack data. 
Worse, take it to the point of no return. 
Maxell's unique jacket construction 
defies heat of 14Ö°E And keeps your 
Information on track. 

And Maxell runs clean. A unique 
process impregnates lubricants 
throughout the oxide layer. Extending 
media and head iife. How good is Gold? 



Maxell's the disk that many drive manu- 
facturers trust to put new equipment 
through its paces. It's that bug-free. 
So you can drive a bargain. But in 
accelerated tests, Maxell floppys lead 
the industry in.error-free Performance 
and durability. Proving that if you can't 
stand the heat you don't stand a chanec. 

maxell 

rrswoRTHix 
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FUCHS UND HUND 



m 



Für Colour Genie mit neuen Rom-Modulen 



Man hat es schon nicht leicht als 
Fuchs, wenn man drei hungrige Junge 
im Fuchsbau hat, die gefüttert werden 
wollen. 

Man weiß nie, woher das nächste 
Mahl kommen soll. 
Aber diesmal wird es ganz bestimmt 
eines der Hühner aus dem Stall von 
Bauer Emsig sein - dort auf der ande- 
ren Seite des Flusses. 
Das Problem ist nur, daß Fiffi, der 
treue Bullterrier des Bauern, in der 




Nähe des Stalles schläft, und sobald 
die Hühner nur einen Laut von sich 
geben, wacht er auf und geht auf Spu- 
rensuche. 

Doch du, als schlauer Fuchs, kannst 
Fiffi hereinlegen, indem du falsche 
Fährten auslegst, und während Fiffi 
sich darin verliert, ein Huhn erbeuten. 
Das Spiel hat 10 Spielstufen, abhängig 
von der Anzahl deiner Fuchsbauten, 
in die du dein Beutegut ablieferst. 
Weitere Angaben stehen in der Spiel- 
anleitung im Listing. 
Das Programm belegt 4,5 K Speicher- 
platz. 



COLOUR GENIE 

CSLOÜR SEHE 

5 ' - Fachs und Kund - 

Geschrieben von V, und G. Brockel 
10 CHAR2:GOSUB1120 
20 CLEÄR250 
3« ffiJ= L30 : FU=1 29 : BA-1 3i : CH=i 28 

« MTA40,-40,1,-1 
45 ' 

H BE5IENUNGSANLEITUNB « 

SO GLS:PRINTTftBI7!'- Fuchs und Hund - 

tf PRINTSTRIN6*(40, , - , U 

79 PRINT'Ou tust als Fuchs versuchen, so viele':P0KE174?3,8 

90 PRlKT'Xuhoer Hie «glich aus dei Hubnerstal I* : P0KEi7529,7: P0KEL7540, 6: POKE 17556, 7 

N PRIIT'des Bauern zu stehle». Er miti von eines', 

IN PHHT'Bacnhend beschützt, der einen guten , :P0KE17622,7 

110 P8IHT"6eruchssian hat. 

120 PglKT'Bevor du ein neues Huhn bekoaaen kannst,'; 

1» PRINT'aust du zuerst dein erbeutetes Kuhn zu":POKE17730,8 

1« PRINT'deiner Hohle bringen, aber der Hand ist *:PQKE1 7776, o 

35« PfilHT'aiif deiner Spur !' SPRINT 

160 PRIH'FttChss'CHRNFU), 'Kund: 'CHR*(HU1 , 'Deine Spur! . 

170 P8mT*Hohle:* , f , HTihn:'CH«(Cfl),*Bai»: , CHR$IBÄJ;PBKE17929 1 6 

ISO PRIMT§560,;:mPÜT*SchuieriglteitS5tufe 11-10) - l=sth*er '{SL 

190 IFSK10RSLM060T018Q 

2» PRIHTSPRINT'tfeitere tfatilioglichkeit :':PÜKE1810i,6:PRIHT"-i- Hund iaaer unsichtbar 

210 P8INT'-2- Hund nur sichtbar aul deiner Spur 

220 PRIKT'-3- Hund nur unsichtbar au< deiner Spur 

230 PRMT»-4- Hund Hier sichtbar 

240 INPUTDL 

250 IFDLÜQRSU46QTQ240 

260 0*DlfiüSUB270,280,290,300:GOT0310 

270 BB=24a:FF-24n;RETURH 

280 BB=246:FF=Hü:RETÜRN 

290 bb=hu:ff=246:return 
300 bb=hü:ff=hü 
310 HS=5:N> , CDapater' 
315 * 

H VARIABEL« H 

320 L*=STRIK6* (3, 132! :LI$=STRIh*6*t3, 132) :BL«=STR!K6$(3,246) 

330 C«ÜI*CHR$Ü32) *L**BL**L**BL**L$*CHR»i 132 J 

340 CC* (2)=CHR*J132) *BL$*BL*+BL*BL**BL**CHR${i32J 

350 CC« i3)=CHR$Ü32) ♦LI**BL*+LI*+BL**L»*CHR« < 1321 

360 Rt*=STRIHB*(7,133}:R2$=* , :RJ«=R1*+R2**R1*+R2«+R1**R»+R1**R2«»R1* 

370 SC=0:SF=l:DH=-l:CF=0:DB=17833 

375 ' 

H SPIELFELD ZEICHNEN H 



380 CLS 



390 FQRA=tT050-SL:PQKERNDf 289H17408, 131 : HEXT 

400 FORfl=17447TG18047STEP40:PQKEA, 148:«EXT 

410 FGRA=lT03:PRINT§tAWÖ)*441,CC*tA) 

420 HEXT 

430 PQK£17930,CH:POK£D6,HU 

440 PRINT§280,RI* 

450 FQM=1T05L 

460 BQ-RHDI1??) Ü74Q8; IF(PEEKfSU-l) ) ANBtPEEKtBU+tJ ! O131THEH460 

470PQKE£U,?4 

480 KEXT 

490 PRlNT§32O, , FlU5 , :P0KE17731,8lPRINT§6B2 l 'Punkte; 0":PRINT5ä40,STRINS$l40, '-') 

500 PRINT§762,*Punkterekord'HS , gehalten von 'H« 

510 PRM§883,STRIHG$l35,244):PRIHT§92Z,CHRS(238r FUCHS «KD HUND 

•CHRSI245) j:PRIHT§963,STRIH6$i35,2291 i 

520 FORA=lTOt500:HEXT 

530 Pfil«TI320,BL**BL$ 

540 U=RHD(639H174085lFPEEKlU)O246TH£N540ELSEP0;KEU,FU 

545 ' 

» SPIELBE6INN H 

550 PRINT§363,STRING* (36,246) i 
555 * 

» FLUSS « 

560 il=H*l:«=HAHDi:IFi»=lTHENPaKEfeHF42B J 68:P0KEfiHF42C,17ELSEP0KEt;HF42B J 17: P0KEfeHF42C s I 
565 • 

» BEBESIINS DES FUCHSES H 

570 IFPEEK (-19841 =8«U=-40t GGTOÄ20 

580 IFPEEK I -1984! =16«U=40:GÜTßfi20 
590 IFPEEK ( - 1984! =3ZBI*-i: 6DT0620 

600 IFPEEK(-1984)=64HU=!:GQT062D 

610 SOT0700 

620 IFUtHIKi7408QRU>HU>lßO«7THEN700 

630 PP=PEEK(UtHU! 

640 IFPP=32ÜRPP=246QRPP=4660TÖ6?0 

650 IFU*«U=8SG0TO1030 

660 IFPP=CH60SUB890: 50T0700 

670 IFPP=94ANDCF=lSßSUB9'90:60T0700 

680 S0T0700 

690 P0KEU,46: ü=ü*hü:pokeu,fu 

695 ' ' 

« 8E8ESUNG DES HUNDES AUF DER SUCHE 
700 IFFL=lTHEIt7?Q 

710 IFBG+DMU74080RDS*IIK>iaü47G0SOB?40:caTO56O 
720 IFRtiD(IO)=7G0SUB940 
730 PP=PEEKIDS+DH) 
740 1FPP=246G07C780 
750 IFPP=46TH£N790 
760 IFPP=FÜTHEN103Ö 
770 6QSUB?40:SÜT0560 

780 IFSF=1THEN560ELS£POKEDS,246:DG=DG«SK; P0KED0.BB: GOTO 560 
785 ' 

« HUND IST AUF DER SPUR H 
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790 FL=1 



810 
820 
830 
840 
850 
SÄO 
870 
380 
885 



PLAY il,7,RND{5), 11 ):FORI=1T01O; «EXT: PLAY (1,1,1,01 

RESTORE 

FÜRX=lT04:RfABDK 

PP=PEEKIDG«EW) 

IFPP=46THEN880 

IFPP=FUTH£N1Ö30 

IFPP04ÖNEXT 

FL=0 : S0T0560 

POKEDG, 246; POKEDSO«, FF:EG=DG*I]M : 50T0560 

« FUCHS ERBEUTET HUHN ff 



890 SF=0 

9 00 I FPEEK (1 7930 1 =CHT HENPQKE 1 7930 , 246ELSEP0KE17944 ,246 

910 CF=1 

920 SKJNEl,0:SOlND12,lM:SOUH513 f 9:SOÜKD8,31:FORJ=255T0120STEP- 

i:soukdo,j:next 

930 RETURN 
935 ' 

H NEUE RICHTUNG FUER DEN HUND ff 



?4D U=RKD(4) : OH V60T0950, 960, 970, 980 

950 DN=-40!RETÜRN 
960 BM=40: RETURN 
970 DH=-l: RETURN 
980 DM=lI RETURN 



ff HUHN IK FUCHSBAU ABLIEFERN ff 



990 SC=SC+ÜCF=0: 1 FRNB S 2 ) =1 THEMPOKE 17930 , CHELSEPDKE1 7944 , CH 
1000 F0HI*iT06: PLAY (1,1 ,2, 15) INEKT: PLAY ü, 1,1,01 
iölO PRINTS682, 'Punkte!* SC 
1020 RETURN 
1025 ' 

ff FUCHS VON HUND GEFANGEN ff 

1030 S0ÜNBi,13:SGUND8,3i:S0UND12,255:SSUNB13,9:PQK£D6,246:POKEÜ l HU:FQRA=lT0255:SOÜNDÖ,A:NEXT:PRiNT§88O ) CliR$i31] 

1040 PRINT§845, , Ba hast* SC: PRINT5856, "Hühner gefangeji , :P0KEi8265,7 

1050 IFSOHSLETHS=SC:PRIHT§885, "uftd hast eilten PaRkterekord!':PRINT5920 l *Qib deinen Naien einl'jSlNPlilN* 

1060 PRINT1?74,HS 'gehalten von , N$CHR$!30); 

1070 PRINTS880,CKR$(31)5" 

Leertaste für ein neues Spiel !E=Ende)'i:PßKE18339,7 

1080 A*=INKEY* 

1090 IFA$=' '50T0370 

1100 IFAtO'E'THEfiiOSOELSEPRINT" 

Bänke fürs Spiel,' ' NC PO KE 18335, 7 
1110 END 
1115 ' 

ff DATA FUER ZEICHEHDEF IHITION « 

1120 BATA32, 208, 112,63,62,28,8,3 

1130 DATA9, 9, 31, 5 1,127, 255, 63, 15 

1140 0ATA13,50,62,73 I 255,231,66,60 

1150 DATA5*, 124, 254, 254, 124,16,16,56 

1160 DATA34 J 34,255 1 34, 34,34, 255, 34 

1170 DATA195, 156,0,68, 17,0, 156, 195 

1180 RESTORE: F0RJ=1TÖ4:READX:NE)!T 

1190 FORJ=fcHF400TÖ&HF42F:8EABX:POKEJ,X:NEXT 

1200 RETURN 
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Backe Backe Kuchen ... Setzen Sie Ihre Bäk- 
kermiitze auf, denn hier kommt 
... die verrückte Kuchenbäckerei 



Das Spiel ist in LASERBASIC für den 
LASER 2001 geschrieben und wird mit 
dem linken Joystick gesteuert. Zur 
Steuerung kann auch ein ATARI Joy- 
stick (oder ähnlicher) benutzt werden, 
da im Laufe des Spieles kein Feuer- 
knopf angesprochen wird. 

Doch nun zum Spiel: 
Sie sind Bäcker in einer Kuchenbäcke- 
rei und haben die Aufgabe, für ein 
großes Fest Kuchen zu backen. In Ih- 
rem großen Backofen sind immer 9 Ku- 
chen gleichzeitig. Zu Beginn einer je- 
den Runde liegt natürlich nur der Teig 
der Kuchen in den einzelnen Türen 
des Backofens. Dieser Teig fängt nun 
im Backofen an aufzugehen, und das 
natürlich ungleichmäßig. Sie müssen 
ietzt die Kuchen mit Ihrer Bäcker- 
schaufel aus dem Backofen herausho- 
len, sobald diese fertig gebacken sind. 
Einen fertig gebackenen Kuchen er- 
kennen Sie an der. Farbe, denn er 
wechselt diese von gelb nach leicht 
rot. Lassen Sie die Kuchen zu lange im 
Backofen, so verbrennen diese. Holen 
Sie die Kuchen jedoch zu früh aus dem 
Backofen, so fallen diese zusammen, 
und der Rest des zusammengefallenen 
Kuchens verbrennt ebenfalls im Back- 
ofen. Wenn Sie es geschafft haben ei- 
nen Kuchen heil aus dem Backofen 
herauszuholen, so erscheint dieser in 
dem zugehörigen Kästchen unter dem 
Backofen. Doch die fertig gebackenen 
Kuchen, die Sie bereits aus dem Back- 
ofen herausgeholt haben, sind noch 
lange nicht in Sicherheit, denn in die 
Backstube hat sich eine sehr gefräßige 
Maus eingeschlichen, die Ihnen Ihre 
fertig gebackenen Kuchen wegfressen 
will. Sie könnten jetzt natürlich die 
Maus erschlagen, oder eine Mausefal- 
le aufstellen. Da Sie natürlich ein gro- 
3er Tierfreund sind, werden Sie nichts 
dergleichen tun, sondern die Maus mit 
Käse füttern, damit diese Ihren Ku- 
chen nicht frißt, denn solange die 
Maus Käse zu fressen hat, wird sie 
Ihren Kuchen in Ruhe lassen. 
Eine Runde des Spieles ist immer dann 
beendet, wenn keine Kuchen im Back- 
ofen vorhanden sind, die noch weiter 
backen können. Die Punkte werden 
auch immer erst zum Rundenende ab- 
gerechnet. Wenn es Ihnen gelingt min- 
destens 5 Kuchen zu „retten", so geht 
das Spiel mit einem höheren Schwie- 
rigkeitsgrad weiter. Gelingt es Ihnen 
jedoch nicht, mindestens 5 Kuchen 
heil aus dem Backofen zu bringen, so 
wird Ihnen eine Ihrer anfänglich 3 
Bäckerschaufeln abgenommen, und 
das Spiel geht mit dem gleichen 
Schwierigkeitsgrad und 9 neuen Ku- 



chen weiter, sofern Sie noch eine Bäk- 
kerschaufel übrig haben. Das Spiel ist 
dann beendet, wenn Ihnen alle Bäk- 
kerschaufeln abgenommen wurden. 
Sollte es Ihnen gelingen in einer Run- 
de sämtliche 9 Kuchen heil aus dem 
Backofen zu bringen, und vor der 
Maus zu „retten", so bekommen Sie 
zur Belohnung eine Bäckerschaufel 
geschenkt. r 

Sie haben die Auswahl zwischen 4 Spiel- 
versionen: 

1 - Bäckerlehrling 

(Beginn bei Schwierigkeit 1 ) 

2 - Bäckergeselle 

(Beginn bei Schwierigkeit 3) 

3 - Bäckermeister 

(Beginn bei Schwierigkeit 5) 

4 - Chef der Bäckerei 

(Beginn bei Schwierigkeit 7) 
Die Schwierigkeit wird bis auf maxi- 
mal Stufe 8 erhöht. Danach bleibt der 
Schwierigkeitsgrad konstant. 

Steuerung; 

Das Spiel wird mit dem linken Joy- 
stick gesteuert. 

Eine Joystickbewegung nach links 
oder rechts bewegt die Bäckerschaufel 
in die entsprechende Richtung, und 
zwar immer um eine Ofentür. Um ei- 
nen Kuchen aus dem Ofen zu holen, 
wird der Joystick nach oben gedrückt. 
Wird der Joystick nach unten gezo- 
gen, so werden immer zwei Käsestück- 
chen in die Laufbahn der Maus gelegt, 
und zwar immer unter der Bäcker- 
schaufel. 

Die Anzeige: 

Links oben im Bild sind die Anzahl der 
Re s erve - B äc ker schaufeln ang e z eigt . 
Zu Spielbeginn zeigt diese Anzeige 2 
Schaufeln an, das bedeutet, daß Sie die 
beiden Reserveschaufeln und die zur 
Zeit benutzte Schaufel zur Verfügung 
haben (also 3 Schaufeln). 
Rechts oben im Bild ist die Punktan- 
zeige eingeblendet (graue Zahlen). 
Diese Anzeige wird immer erst zum 
Ende einer Runde aktualisiert. Die 
Anzeige zeigt also während des ge- 
samten Verlaufes einer Runde keine' 
Veränderung an. 

Die grüne Anzeige mitten über dem 
Backofen zeigt an, wieviel Punkte Sie 
in dieser Runde für jeden „geretteten" 
Kuchen bekommen. 

Tips zam Spiel: 

Die Maus läuft von Anfang an immer 
auf dem Bildschirm hin und her. Füt- 
tern Sie die Maus deshalb von Anfang 
an mit Käse, und nicht erst, wenn Sie 
einen Kuchen aus dem Ofen geholt 



CRAZYCAKEJ 



haben, denn wenn die Maus gerade, 
während Sie einen Kuchen aus dem 
Backofen holen, unter der Bäcker- 
schaufel steht, und kein Käse über 
dem entsprechenden Feld liegt, die 
Maus sofort den Kuchen frißt. Die 
Maus frißt immer erst den Käse, bevor 
sie sich am Kuchen vergreift. Wenn 
ein Kuchen in einem Feld steht, und 
über diesem Feld Käse liegt, so wird 
der Käse gefressen. Läuft die Maus 
jedoch ein zweitesmal über dieses 
Feld, so wird der Kuchen gefressen, es 
sei denn, es wurde wieder neuer Käse 
über das Feld gelegt. Seien Sie deshalb 
besonders bei dem rechten und linken 
Eckfeld auf der Hut, da die Maus hier 
die Richtung wechselt. 



Wfp^-.. mm 





Tips bei der Eingabe des Programms: 
Benutzen Sie bei der Eingabe nach 
Möglichkeit die CTRL-Tasten. Damit 
werden die Tippfehler bei der Eingabe 
um einen Großteil verringert. 
Bevor Sie das Programm zum ersten- 
mal starten, SAVEN Sie das Pro- 
gramm unbedingt mehrmals auf Cas- 
sette oder Diskette. Das Programm be- 
legt den Speicher fast vollständig, was 
bei bestimmten Eingabefehlern beim 
LASER 2001 zum Systemabsturz füh- 
ren kann. In manchen Fällen ist da- 
durch dann auch die RESET-Taste un- 
wirksam. 

Anmerkung: 

Das Spiel sollte unbedingt mit einem 
Farbfernseher oder Farbmonitor ge- 
spielt werden. Bei Verwendung eines 
Schwarz- Weiß-Monitors hat das Spiel 
keine Wirkung, da die Farbtöne eine 
fast einheitliche graue Fläche ergeben, 
und der Farbwechsel der" Kuchen 
nicht richtig wahrgenommen wird. 
Der Fernseher sollte möglichst genau 
auf den LASER eingestellt sein (am 
besten Kanal 4 am Schalter auf der 
Unterseite einstellen), da sonst an 
Stelle der schönen akkustischen Un- 
termalung nur ein fürchterliches Ge- 
jaule zu hören ist. 

Doch nun machen Sie sich auf den 
Weg in die verrückte Kuchenbäcke- 
rei. Ich wünsche ein ERRORfreies Ein- 
tippen und viele schöne Kuchen bei ... 
Backe Backe Kuchen... CRAZY 
CAKE. 
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1 REM ************************* 

2 REM * CRfiZY C fl K E * 

3 REM * * 

4 REM * LHSER 2001 * 

5 REM * und linkem Joystick * 

6 REM * * 

7 REM * Cc>1984 ba Tronicsüft * 

8 REM * V.Becker * 

9 REM ************************* 

10 REM 
70 CLERR 

39 DIM KFC 9,2), MFC 28,2) 

85 GOSUB 20000 

96 ST * l'SM «= 223 «KU * 0-PR * 23 

92 PK ■ 0'X8 - 9 

GR 

GOSUB 58090 

COLOR* 2.4 
114 BS * 2 
116 GOSUB 25000 

S * 127 «Xfl * 228 

GOSUB 31000 

GOSUB 58009 



100 

110 

111 



120 
125 
130 



140 p$ = STR$ (20 * CRU + 1))-Xfl * 136^ COLOR* 2,4= GOSUB 3100? 



P ■ 4 
FÖR I - 1 TO 9«KF<Iii> » 1 «KFC 1,2) = P * 8 
COLOR* 10, 4= ZK * 126 

FOR I ■ 1 TO 9<SK ■ KFC 1,2V GOSUB 48270« HEXT 

8 THEN RU * 8 



liP - P + 3« HEXT I 



1' IF RU 



FOR I * 1 TO 28«MFCI,K> s 0- NEXT I« HEXT K 



GOTO 1000 



890 

900 

905 

910 

920 RU - RU + 

930 VV ■ 5 

940 FOR K * 1 TO 2' 

950 GÖSUB 61000 

1000 R * INT < RND (255) * 8 + 1.5)» IF KFCfl,l) * 9 THEN 

1Ö10 KFCR, 1> « KFCR,1) + i=ZK - 126 'SK * KFCR,2> 

1020 COLOR« 10,4 

1030 ON KFC R,l) GOSUB 48270,43210,48150,48110,43070,48040,48008,47900,47950 

1500 FOR LI = 1 TO 9 - RU 

2000 CRLL - 1536 

2005 ON ST GOSUB 49000,49108 

2010 JS - PEEK C24) 

2020 IF JS * THEN GOTO 3800 

2025 IF JS > 100 THEN GOTO 3090 

2030 GOTO 10000 

3000 NEXT LI 

3005 FOR 1 * 1 TO 9« IF KFC 1,1) < 

3006 NEXT I 

3007 GOTO 4000 
3019 GOTO 1900 
4000 PK » PK + 20 * KU * RU 
4005 GOSUB 59080 
4010 XR * 228= GOSUB 31000 

IF KU < 5 THEN GOSUB 24008= BS = BS - 1»RU » RU - 1 

IF KU « 9 THEN BS * BS + 1 » GOSUB 25000 

IF BS < THEN GOTO 5000 

COLOR« 7,4 

COLOR* 8,4« GOSUB 50170 

GOSUB 49200 

3 



> 9 THEN GOTO 3010 



4012 
4014 
4016 
4020 
4023 
4025 
4030 
4040 
4059 
4060 
4065 



FOR I « 3 TO 27 STEP 

FOR K » TO 15 

UNPLOT I * 8 + K, 156 

NEXT K 

SOUND C5 * I - 10,2, 15), C5 * I - 15,2,15) 



TO I * 8 + 



K,175 



4070 NEXT I 
4680 KU * 
4Ö90 GOTO 129 
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5000 

5010 

5020 
5025 
5039 
5040 
P.050 

5060 
000 

5970 
5080 
5090 
5100 



COLORa 2,4 

FÖR I - 100 TO 127= PLOT 16,1 TO 239/1 

HEXT I 

Z - 105 

FOR K = 1 TO 8 

RERD S..SK 

FOR I ■ TO 2 

OH SK GOSUB 5 1000, 52000, 53000, 54000, 55000, 56000 ,57000, 4 1000, 42000, 43000, 44 

HEXT I 
HEXT K 
GOSUB 61000 

GET FW' RUH 



10000 JS * JS / 2 

10010 IF JS > 10 THEN GOTO 11000 ' 

i 0020 OH JS GOTO 1 0500 , 1 9 i 00 , 1 i 00 , 1 8309 , 300© , 1 Ö 1 00 

10100 IF S > * 223 THEN GOTO 3000 

10110 GOSUB 59000 

10120 8 ■ S + 24 'W ~ VV + 1= GOSUB 58060 

10130 GOTO 3000 

1020Ö IF 8 < = 31 THEN GOTO 3900 

1Ö210 GOSUB 59000 

10220 S = 8 - 24 'VV - VV - 1= GOSUB 58090 

10230 GOTO 3008 

IF KF<VV,t> = 9 THEN GOTO 3080 

k" s c 

GOSUB 59000 

OH ST GOSUB 49000,49108 
GOSUB 59200 

OH ST GOSUB 49000,49100 

IF KF<VV,1) ~ 8 THEN COLOR= 4,4= GO-:iP *9480 
ON ST GOSUB 49000, 4° 10@ 

IF KRVV,1) » ? THEN COLOR«= 9, 4 = ZK = 175= GOSUB 48000 = 
= 9 = KU = KU + l.MF<<<S + 1> s 8> - 2,2> * l'MF<(<8 + i> • 8) - 

10370 OH ST GOSUB 49000,49106 

IF KF<VV,1) < 8 THEN GOSUB 59300 « KF< VV, 1 > ■ 9 

OH ST GOSUB 49008,49100 

GOSUB 59500 

OH ST GOSUB 49008,49100 

GOSUB 58000 

ON ST GOSUB 49006,49100 

GOTO 3000 

COLORs 11,4 

FOR KS * 156 TO 157* PLOT S - 3,KS TO S - 2,KS 

PLOT S + 2,KS TO S + 3,KS 

MEXT KS 

SOUND <160 - <KS - 156 > % 20,2,15), (158 - (KS - 156 > * 
10536 KT * INT «S + 1) / 8) - 1=MF<WT,1) * 1=HF<HT - 1,1 > * 
10540 GOTO 3000 
11000 JS « JS - 15 
11010 OH JS GOTO 10200,10200,3008,3000.10200 

HOME 



10300 

10302 

10305 

10310 

10320 

10330 
10340 
10350 
10360 



10386 
10398 

1 0400 
10410 

10420 
10430 
10440 
1A500 
10510 

10520 
10530 

10535 



ZK « 
1,2 



126 = KF<VV,1) 

> = 1 



20,2. 
1 



15) 



20009 

20805 
2081Ö 
20820 
28030 
20040 
20850 

?0060 
?0870 

29080 



TEXT 

DOLOR' 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 



1,2 



SPCX 8);"C RflZY-CflK E" 

SPCX 8).:" '■/ CHR* (24); CHR* <24>; CHR* <24> 

SPC< 8); "SP iel Versionen =".5 CHR* <24); CHR* <24) 

SPCC 8).; n i BaeekerIehrliTV9 M ; CHR* <24> 

8PC< 8); "2 Baecker-9ese IL €■'*.! CHR» (24) 

SPC< 8 ) .; " 3 Baeck erme i st er " .: CHR* (. 24 > 
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iißStEPifm 



20099 

20110 
20120 
20125 
20130 
20140 
28150 
20160 
20170 
205.80 
20190 
202Ö0 
24000 
24110 
24120 
24130 
24140 
24150 
24160 
24180 
25000 
25100 
25110 
25120 
25130 
25140 
25150 
25160 
25162 
25164 
25166 
25168 
25170 
2518Ö 

30000 
30010 

30020 
30Ö30 
3Ö040 
30058 

30060 

30100 

30110 

30120 
30200 
30210 
30220 
30230 
30240 
3H300 
30310 
20320 
30330 
30340 
30400 
3Ö410 
30420 
30430 
30440 
30580 
30510 
30528 



PRINT SPCX 8); "4 Chef der- ßaecker-ei"; CHR$ (24) 
FÜR 1 a 1 TO 6' PRINT CHR» <24)j= NEXT I 
PRINT SPD: 8)^"(c) 1984 by Tromcsoft'' j 
GOSÜB 61000 
FOR I - 1 TO 4 



PRINT CHR$ <5 

INPUT RU 
RU - INT <RU)» 
RU = ( RU - 1 > * 

PRINT CHR« 



PRINT CHR» <5)j> HEXT 1= PRINT 
'; SP CC 3 > .; " b i 1 1 e w aeh 1 ■=■ n Sie : " ; 

IF RU < 1 OR RU > 4 THEN GOTO 26140 



CALL - 
RETURN 
COLORs 
UNPLOT 



1536 



5).:" bitte dein linken Joystick bewe9eri' 
IF PEEK (24) » THEN GOTO 20190 



14,4 

8 * BS + 
UNPLOT 8 * BS + 
UNPLOT 8 * BS + 
UNPLOT 8 * BS + 
UNPLOT 8 * BS + 

UNPLOT 8 % BS + 
RETURN 
COLOR« 14,4 
FOR I * 1 TO BS 
PLÖT 8*1+ 16,33 
PLOT 8 * I 



16,33 
16 + 

16 
16 
16 
16 



1,32 TO 8 f. BS + 16 + 1,34 

2,31 TO 8 * BS + 16 + 2,39 

3.31 TO 8 * BS + 16 + 3,39 

4.32 TO 8 % BS + 16 + 4,34 
5.33 



PLOT 8 % I 
PLOT 8 * 1 
PLOT 8 * 1 
SOUND (135 



+ 


16 + 


1 , 34 


+ 


16 + 


2,39 


+ 


16 + 


3,39 


+ 


16 + 


4,34 



+ 16 + 1,32 TO 8 * I 

+ 16 + 2,31 TO 3 % I 

+ 16 + 3,31 TO 8 * I 

+ 16 + 4,32 TO 8 * I 

+ 16 + 5,33 

2, 15X-C 134,2, 12), f. 136,2, 12) 
SOUND < 179,2, 15 >, (169, 2,12 >,< 171,2, 12 > 
SOUND < 195,2, 15 M 194, 2, 12>,U96,2, 12 > 
SOUND <202,2,15X.<201,2,12>,<203,2,12> 
NEXT I 
RETURN 

FOR I « 31 TO 39 STEP Q- PLOT SP + 2, I TO SP + 4, I 

NEXT I 

FOR K » 1 TO 5 STEP 4 

FOR I » 32 TO 36 STEP 4= PLOT SP + K, I TO- SP + K, I +2 

NEXT I 

NEXT K 

RETURN 

PLOT SP 

PLOT SP 

RETURN 

FOR I - 

NEXT I 

PLOT SP + 5,32 TO SP + 5,34 

PLOT SP + 1,36 TO SP + 1,38 

RETURN 

FOR I « 31 TO 39 STEP 4= PU, 

NEXT I 

PLOT SP + 5,32 TO SP + 5,34 

PLOT SP + 5,36 TO SP + 5,38 

RETURN 

PLOT SP + 1,32 TO SP + 1,34 

PLÖT SP + 5,32 TO SP + 5,34 

PLOT SP + 2,35 TO SP + 4,35 

PLOT SP + 5,36 TO SP + 5,38 

RETURN 

FOR I - 

NEXT I 

PLOT SP 



+ 5,32 TO SP + 
+ 5,36 TO SP + 



5,34 
5,38 



31 TO 39 STEP 4= PLOT SP + 2, I TO SP + 4,1 



+ 2,1 TO SP + 4,1 



31 TO 39 STEP 4= PLOT 
+ 1,32 TO SP + 1,34 



3P + 2, I TO SP + 4, I 
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Ki?^ 



30530 


PLOT SP 


30540 


RETURN 


33600 


FOR I * 


30610 


HEXT I 


30620 


PLOT SP 


39630 


PLOT SP 


30640 


PLOT SP 


3065Ö 


RETURM 


30700 


PLOT SP 


39710 


PLOT SP 


30720 


PLOT SP 


30730 


RETURN 


38808 


FOR 1 - 


30810 


NEXT I 


30830 


FOR K * 


30840 


FOR I * 


30850 


NEXT I 


36860 


NEXT K 


39370 


RETURN 


39900 


FOR I ■ 


30910 


NEXT I 


30920 


PLOT SP 


30930 


PLOT SP 


30940 


PLOT SP 


30950 


RETURN 



+ 5,36 TO SP + 5,38 

31 TO 39 STEP 4> PLOT SP + 2,1 TO SP + 4,1 

+ 1,32 TO SP + 1,34 
+ 5,36 TO SP + 5,38 
+ 1,36 TO SP + 1,38 

+ 2,31 TO SP + 4,31 
+ 5,32 TO SP + 5,34 
+ 5,36 TO SP + 5,38 

31 TO 39 STEP 4- PLOT SP + 2,1 TO SP + 4,1 

1 TO 5 STEP 4 

32 TO 36 STEP 4' PLOf SP + K, I TO SP + K, I + 2 



31 TO 39 STEP 4' PLOT SP + 2, I TO SP + 4,1 

+ 5,32 TO SP + 5,34 
+ 5,36 TO SP + 5,38 
+ 1,32 TO SP + 1,34 



31000 COLOR= 14,4 
31005 PS « STRS (PK) 
31007 SP » HB - 7 * LEN (PS) 
31010 L » VflL < MID* <P$,l,i)> 
31020 UNPLOT SP + 1,31 TO SP + 
UNPLOT SP + 2,35 TO SP + 



+ 1 



5,31 TO SP + 5,39 TO SP + 1,39 TO SP + 1,31 
4,35 
ON L GOSUB 30000,30100,30200,30300,30400,30500,30600,30700,30800,30900 
IF LEN (PS) < «1 THEN RETURN 
31040 PS = RIGHTS <P$, LEN (PS) - 1) 
31Q50 GOTO 31007 



-31025 
31030 
31035 



I TO 8 + 



41000 UNPLOT S + 11 + \,Z + 4 - I TO 3 + I,Z + 4 - I TO S .+ 1/2 + 15 
11 + I,Z + 15 - I TO S + 11 + I,Z + 10 - I TO 8 + 3 '+ 1,2 + 10-1 

41010 RETURN 

42000 UNPLOT S+I, Z+ 15 -ITOS+I, 2+4-1 TO 5+5+1, 2+10-ITO 8+ 
6 + I,Z + 10 - I TO S + 11 + I,Z + 4 - I TO 3 + 11 + I,Z +15-1 

42010 RETURN 

43000 UNPLOT S + I,Z + 4 - I TO S + 11 + I,Z + 4 - I TO S + 11 + 1, 2 + 15 - l T 

0S+I,Z+15-IT0S+I,Z+4-I 

43S10 RETURN 

+ 6 + 1,2 +16-1 TO 



44000 


UNPLOT S + 1,2 


+ 


4 - 


- I 


TO 


S 


+ 5 + 


I,Z + 15 - 


- I TO S 


S + 11 + I,Z +4-1 


















44010 


RETURN 


















47900 


DOLOR» 9,4 


















47910 


GOSUB 48000 


















47920 


RETURN 


















47950 


GOSUB 59608 


















47960 


GOSUB 59310 


















47970 


RETURN 


















4RRR0 


PLOT SK - 5, ZK 


-. 


15 


TO 


SK 


- 


4, ZK 


- 15 




48010 


PLOT SK + 5, ZK 


- 


15 


TO 


SK 


+ 


6, ZK 


- 15 




48920 


PLOT SK - 6, ZK 


- 


14 


TO 


SK 


- 


2, ZK 


- 14 




48030 


PLOT SK + 3, ZK 


- 


14 


TD 


SK 


+ 


7, ZK 


- 14 




48840 


PLOT SK - 6, ZK. 


- 


13 


TO 


SK 


+ 


7, ZK 


- 13 




48050 


PLOT SK - 5, ZK 


- 


12 


TO 


SK 


+ 


6, ZK 


- 12 




45060 


PLOT SK - 4, ZK 


- 


11 


TO 


SK 


+ 


5, ZK 


- 11 




48070 


FOR KK ■ - 10 


TO - 


- 8 


' PLOT SK ~ 


4, ZK + KK 


TO SK + 


"--niitmnir. 



















5, ZK + KK 



48980 

48090 

48100 

49110 

4SI 20 

48130 

48140 

48150 

48168 

48170 

48180 

48190 

48200 

48210 

48220 

48230 

48240 

48250 

48260 

48270 

48230 

48290 

49000 

49002 

49003 

49004 

49005 

49006 

49007 

49098 

49010 

SM - 

49020 

49030 

49040 




2001 



NEXT KK 
PLOT SK 
PLÖT SK 
PLOT SK 
PLOT SK 
PLOT SK 
PLOT SK 
PLOT SK 
PLÖT SK 
PLOT SK 
PLÖT SK 
PLOT SK 
PLOT SK 
PLOT SK 
PLOT SK 
PLOT SK 
PLOT SK 
PLOT SK 
PLOT SK 



4, ZK 
3, ZK 
3, ZK 
3, ZK 

3, ZK 

4, ZK 
2, ZK 
2, ZK 

2, ZK 

3, ZK 

3, ZK 

4, ZK 
1,ZK 
1,ZK 
i,ZK 
2, ZK 

2, ZK 

3, ZK 



- 7 

- 7 

- 7 

- 6 

- 5 

- 5 

- 5 

- 4 

- 3 

- 3 

- 2 

- 2 

- 3 

- 2 

- 1 

- 1 



TO SK 
TO SK 
TO SK 
TO SK 
TO SK 
TO SK 
TO SK 
TO SK 
TO SK 
TO SK 
TO SK 
TO SK 
TO SK 
TO SK 
TO SK 
TO SK 



4, ZK 
5, ZK 
4, ZK 
4, ZK 
3.. ZK 
4, ZK 
3, ZK 
3, ZK 
2.. ZK 
3, ZK 

3, ZK 

4, ZK 
Z> ZK 
2, ZK 
1.-ZK" 
2.. ZK 



- 6 

- 6 

- 7 

- 6 

- 3 

- 3 

- 5 

- 4 

- 1 

- 1 

- 1 

- I 

- 3 

- 2 



PLOT SK,ZK - 1 TO SK + 1..ZK - 1 

PLOT 8K,ZK TO SK + 1,ZK 

RETURN 

COLOR« 7.4 

GOSUB 49280 
SM * SM - EU= if SM < * 31 THEN ST » 2 
PM - INT CSU / 8) - 1- IF PR * PM THEN GOTO 49010 

IF MFCPM, 1) a 1 THEN MFC PH. 1) « 0: GOTO 49010 

IF MF<PM,2) = THEN GOTO 49010 
MF<PM,2) ■ 5 CÖLOR« 4,4 

GOSUB 49500 

PLOT SM + 2,153 TO SM + 3,153 TO SM + 4,154 TO SM + 4, 

2,156 

PLOT SM, 155 TO SM + 2,155 
PLOT SM - 3, 157 TO SM + 2, 15? 

PR ■ PM 



15 TO SM + 3,156 T 



49050 RETURN 
49190 COLÖRs 7,4 

49102 GOSUB 49290 

49103 SM = SM + RU> IF SM > = 223 THEN ST ■ 1 

49184 PM a INT (SM s 8) - 1' IF PR = PM THEN GOTO 49110 

49105 IF MF<PM,1> * 1 THEN MF<PM,1> * g. GOTO 49119 

49106 IF MF<PM,2) - THEN GOTO 49110 

49107 MF<PM,2> =* 0; CÖLOR« 4,4 

49108 GOSUB 49500 
PLÖT SM - 1,153 TO SM 
3, 156 
PLOT SM - 1,155 TO SM + 1.155 



49110 
Ö SM + 
49120 
49130 



2,153 TO SM - 3,154 TO SM - 3,155 TO SM - 2,156 T 



PLOT SM, 157 TO SM + 4,157 



49140 Pfi ■ PM 
49150 RETURN 



49200 
49210 
49230 

49508 
49510 



FOR CL " 153 TO 157= UNPLOT SM - 3,CL TO SM + 4,CL 

NEKT CL 

RETURN 

IF MFCPM - 1,2) < > THEN P = PM - 1 

IF MF<PM + 1,2) < > THEN P ■ PM 



+ 1..2) 
49528 SP - P * 8 + 8 
49530 FOR CL - 160 TO 
49540 NEXT CL 
49550 COLORs 1,4 'ZK * 

49560 gösub emm 

49570 ZK ■ 126 'KU = KU 
49575 MF(P,2) • 0'MFCP 



175= UNPLOT SP, CL TO SP + 15, CL 
175 <8K ■ SP + ?'■ GOSUB 48150 



- 1 
+ 1,2) 



= 
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49577 COLOR* 15.4 

49580 RETURN 

50000 COLOR» 2.-4 

50005 FÜR I = TO 15 

50010 PLOT 1,1 TO 255 - 1,1 TU 255 - 1,131 - I TO 1,191 - I TO 1,1 

50020 HEXT I 

50025 COLÖR- 13,4 

50830 FOR I - 2 TQ 29 STEP 3 

50840 FOR K - TO 7 

50050 PLOT 1*8 + K,168 TO I * 8 + K, 175 

50060 NEXT K'- NEXT I 

50062 COLÖR« 8,4 

50065 SL - 14*SR - l? 

50070 FOR I * TO 6 

50080 FOR K - TO 7 

50090 Z=<5+I?*3+K 

50100 PLOT SL * 8,2 TO SR * 3 + 7,Z 

50120 HEXT K 

50130 SL ■ SL - 2= SR - SR + 2 

50132 IF I > 3 THEN GOTO 50140 

50135 FOR J ■ 1 TO ?■ CXRCLE CSL * 8 + 14,Z),J= CIRCLE <SR * 8 - 7,Z),J = NEXT J 

50140 NEXT I 

50150 FOR I * 96 TO 127 

50160 PLOT 16,1 TO 239,1 

50165 NEXT I 

50167 GOSUB 55062 

50170 FOR I - 3 TO 27 STEP 3 

50180 FOR K * TQ 15 

50190 UNPLOT I * 8 + K,104 TO I * 8 + K, 126 

50200 NEXT K 

50210 UNPLOT I * 8 + 7,100 TO I % 8 + 8,100 

50220 UNPLOT I * 8 + 5, 101 TO I * 8 + 10,101 

50230 UNPLOT 1*8+ 3,102 TO I * 8 + 12,102 

50248 UNPLOT I * 8 + 1, 103 TO I * 8 + 14, 103 

50250 NEXT I 

50255 IF XS ■» 1 THEN RETURN 

50260 RESTORE 

50270 FOR K ■ 1 TO 9 

50280 'READ 8,Z,8K 

50290 FOR I s TO 1 

58300 ON SK GOSUB 51000,52090,53000,54000,55000,56000,57000 

50310 NEXT I 

50320 NEXT K 

50330 XS ■ 1 

50340 RETURN 

50900 DftTfl 89,64,1,105,64,2,121,64,3,137,64,4,153,64,5,97,80,1,113,80,3,129,80, 

6,145,86,7 

50950 DflTR 56, 8, 72, 3, 88, 9, 104, 7, 136, 19, 152, 1 1 , 168, 7, 184, 2 

51000 UNPLOT S + 11 + I,Z + 4 - I TO 8 + + I,Z + 4 - I TO S + + I,Z + 15 - 

I TO S + 11 + I,Z + 15 - I 
51010 RETURN 

52000 UNPLOT S + + I,Z + 15 - I TO S + + I,Z + 4 - I TO S + 8 + 1,2 + 4 - I 
TO 8+11+1, Z+7-ITO 3+8+1, Z+ 10 -IT0S+2+I,Z+ 10 -ITOS+ 

II + 1,2 +15-1 
52010 RETURN 

53000 UNPLOT S + + I,Z + 15 - I TO S + 5 + I,Z + 4 - I TO S + 6 + 1,2 +4-1 

TO S + 11 + 1,2 +15-1 

53010 UNPLOT S + 3 + 1,Z + 10 - I TO S + 8 + I,Z + 10 - I 

53020 RETURN 

54008 UNPLOT S+0+ I,Z+4- I TOS+ 11 + 1,2 + 4 - I TOS+0+ I,Z+ 15 - 
I TO S + 11 + I,Z +15-1 

54010 RETURN 
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55800 

I TD S 

•■55010 

55062 

55865 

55070 

55090 

55100 

55130 

55140 

55158 

55160 

55170 

55180 

55190 

55200 

55210 

55220 

55230 

56000 

56010 

56020 

- I 

56030 

57000 

I TO S 

57010 

57020 

58800 

58010 
58020 
58030 
58040 
58050 
58060 
58070 

59009 
59010 
59020 
59030 
59040 



59070 

5920Q 
59210 
59220 
59230 

5924Ö 

59300 
59316 
59315 
59320 

59480 
59410 

59420 
59430 

59500 
59510 

5^520 
59530 



UNPLOT S+0+I, Z + 4 - I TO 5 + 5 + 1,2 + 10-1 TQ 8+5+1, 2+ 15 - 

+ 6 + I,Z + 15 ~ I TO S + 6 + 1,2 + 10- I TO S + 11 + 1,2 + 4 - I 
RETURN 

COLOR* 1,4 
SL - 14^SR « 17 

FOR I = 8 TO 6 
2 = <5 + I> * 8 + 7 

PLOT SL * 8,Z TO SR * 8 + 7,2 
SL ■ SL - 2= SR o SR + 2 

NEXT I 

FOR I * 95 TO 127 STEP 3 

PLÖT 16,1 TO 239,1 

HEXT I 

COLOR« 8,4 

PLOT .98,71 TO 165,71 

PLOT 88,79 TO 165,79 

PLOT 96,95 TO 157,95 

PLOT 96,87 TO 157,87 

RETURN 

UNPLOT S + 8 + 1,2 + 4 - 1 TO S + 9 + 1,2 + 15 - I 

UNPLOT S + 1 + I,Z + 10 - I TO 3 + 4 + I,Z + 10 - I 

UNPLOT S + 11 + I,Z + 4 - I TO S + 4 + 1,2 + 10 » I TO S + 11 + I,Z + 15 



RETURN 

UNPLOT S + 11 + 1,2 + 4 

+ 11 + I,Z +15-1 

UNPLOT S + 1 + 1,2 + 10 

RETURN 



I TO S + + 1,2 + 4 - I TO S + + 1,2 + 15 - 
I TO S + 6 + I,Z + 10 - I 



3,134 TO 3 
2,134 TO s 
2,133 TO S 
1,133 TO 3 
1,132 TO S + 1, 
2 TO 3,147 



2, 
2, 
1, 



137 
138 
138 

147 



COLOR- 15,4 

PLOT 8,132 TO 3,147 

PLOT S + 1,132 TO S + 1,147 

PLOT S - 1,133 TO S - 1,138 

PLOT S + 2,133 TO S + 2,138 

PLOT S - 2,134 TO S - 2,137 

PLOT S + 3,134 TO S + 3,137 

RETURN 

COLOR« 15,4 
UNPLOT S + 
UNPLOT S - 
UNPLOT S + 
UNPLOT 3 - 
UNPLOT 3 + 
UNPLOT 3,13 
RETURN 

COLOR« 15,4 

PLOT S,129 TO S,143 

PLOT S + 1,129 TO S + 1,143 

PLÖT S - 2,128 TO 3 + 3,128 

RETURN 

GOSUB 59409 

COLOR* 1,4= GOSUB 48150 

GOSUB 60080 

RETURN 

COLOR* 4,4 

FOR CL «s 111 TO 126= UNPLOT S 

NEXT CL 

RETURN 

COLOR* 15,4 

UNPLOT S, 129 TO S, 143 

UNPLOT S + 1,129 TO s + 1,143 

UNPLOT S - 2,128 TG 8 + 3,128 



7,CL TO S + 8,CL 
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59540 


RETURN 






59600 


COLOR= 4,4 






59610 


FOR CL ■ 111 TO 126= UNPLOT SK - 


7,CL TO SK + 8 


CL 


59620 


HEXT CL 






59630 


RETURN 






60000 


SOUND ( 255, 1 , 1 ) , ( 255, 1 , >, ( 255, 1 


•0),<1, 1,0,1) 




60001 


3GEN 159,191,223,255 






60002 


SOUND < 120, 1 , ),< 150, 1 , > 






60005 


FOR I * i TO 10 






60010 


SGEN 50 + 20 % 1,1,20 + 10 * I 






60015 


FOR K = 1 TO 5 * I = NEKT K 






60020 


HEXT I 






60025 


SOUND < 255 , 1 , > , < 255 , 1 , > , ( 255 , 1 


0),< 1,1,0, 1) 




60030 


RETURN 






61090 


SOUND ( 128, 10, 15 ),U48, 19, 15 ) 






61010 


SOUND < 128, 10, 15),«:: 148, 10, 15 ) 






61020 


SOUND ( 135, 10, 15), < 16Ö, 10, 15) 






61030 


SOUND < 135, 10, 15 >, <. 168, 10, 15 ) 






61040 


SOUND <128,20,15),U48,20,15) 






61050 


SOUND <95, 10, 15), ( 128, 10, 15) 






61060 


SOUND < 1, 10, 15),<95, 10, 15) 






61070 


SOUND ( 128, 10, 15),U48, 10, 15) 






61080 


SOUND < 128, 10, 15),U48, 10, 15) 






61090 


SOUND < 135, 10, 15),'.: 160, 10, 15) 






61100 


SOUND (. 135, 10, 15), C 160, 10, 15 ) 






61110 


SOUND a28,20,15),U48,28,15) 






61120 


SOUND ( 95 , 20 , 1 5 ) , (. 1 28 , 20 , 1 5 ) 






61.130 


RETURN 
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■■■■■■■■■■■■■■■■■■■■i 
■■■■■■■■■■■■■■■■■■■■■ 



.... HOME-COMPUTER ...... 



CPU 6502 A, 32 KByte RAM, 
16 KByte ROM, Microsoft- BASIC, 
hochauflösende Grafik 
256x192,16Farben, 
Video-Audio-Aus- 
gang, HF-Modulator. 
Eingebaut: 
Centronics-Parallel- 
Schnittstelle, Rekorder- 
Interface, Joystick- 
Interface. Optional: Daten- 
rekorder, 1 6 KRAM Erweite- < 
rungsmodul, Druckerkabel, 
Disk-Controller/Disk-Drive. 




...der viele 
in den Schatten stellt! 



Im Fachhandel. 

Auskunft: Generalimporteur SANYO VIDEO Vertrieb GmbH &Co., Lange Reihe 29, 2000 Hamburg 1 .Telefon 040/28010 45-49 



Computronic 



73 



I 



Tips & Tricks 



!öffljnodbre64 



Codewort für die Programme! 



Sicherlich haben Sie schon länger den 
Wunsch, das eine oder andere Pro- 
gramm zu verschließen, so daß kein 
anderer damit arbeiten oder spielen 
kann, ausgenommen Sie selbst natür- 
lich! 

Man müßte einen SCHLÜSSEL haben, 
um ein Programm starten zu können ... 
... ein Codewort muß es sein! 
Ein Programm wird von Cassette oder 
Diskette geladen. Man will es schließ- 
lich mit RUN starten, was passiert 
jetzt? 

Der Computer gibt auf dem Bildschirm 
folgenden Text aus: 

BITTE CODEWORT EINGEBEN 

Sie schreiben das Code wort; auf dem 
Bildschirm sieht man das Codewort 
nicht, sondern eine Reihe von diesen 
„########" Zeichen. 
Was nutzt mir das schönste Codewort, 
wenn es jeder auf dem Bildschirm le- 
sen kann, den es nichts angeht. 
Übrigens, das Code wort für das abge- 
druckte Programm ist schlicht und 
einfach START! Wenn Sie das Wort 
ändern wollen in Zeile 150, beachten 



Sie bitte in Zeile 160: Len<T$>=6 , 

sobald jemand den sechsten Buchsta- 
ben eingibt, geht's ab nach Zeile 300, 
wo der Computer ganz deutlich zu 



verstehen gibt: # ZUGRIFF VERWEI- 
GERT # 

Also in Zeile 160 immer 1 Buchstabe 
mehr angeben, als das Codewort hat. 



75 rem mmmmmmm* 

80 REM * ' CODEWORT !' * 

85 rem mmmmmmM*. 

38 T*» ,,M :PRINTCHR*C147> 

100 PRINT M C0DEW0RT BITTE" :PRINT:PRINT:PRINT 

1 20 GETR$ : I Ffl$= " ■' THEN 1 20 

140 T**T**fl* 

150 I FT**" START "THEN200 

160 IFLENCT$>«STHEN300 

165 PRINT"#"; 

170 GOTO 120 

200 PRIHTCHR$(147>:PRINT"# ZUGRIFF # M 

230 END 

300 PRIHTCHR$(147):PRINT"# KEIN ZUGRIFF #" 

310 FORT»1TO2000':NEXT 

320 GOTO90 

REflDV. 



Datum-Input-Kontrolle 

BITTE DATUM EINGEBEN: So 

spricht der Computer per Bildschirm 
zu mir. Jetzt kommt bei mir die große 
Frage auf: Wie hätte Herr Computer 
es denn gerne? 

- mit Nullen-Eingabe bei Tag und 
Monat? 

- keine Trennzeichen bei Tag und 
Monat? 

- ist der 31. April oder der 31. Juni 
akzeptabel? 

- wie sieht's aus beim 29. Februar 
1985? 

- wird die Meldung „REDO FROM 
START" erscheinen? 

Davon wird in . den wenigsten Pro- 
grammen etwas erwähnt. Vielleicht 
liegt die Ursache dieses Problems be- 
reits in der Wurzel des Programms; 
nämlich beim Programmierer! 
Ein Programmierer sollte eigentlich 
die Datum-Input-Routine so gestalten, 
daß der Anwender keine Fehleingaben 
machen kann. Sollte es doch einmal 
dazu kommen, dürfte der Bildschirm- 
aufbau nicht durch die REDO FROM 
START-Meldung verunstaltet wer- 
den! Dies alles läßt sich doch 100%ig 
zufriedenstellen, wenn der Computer 
alle Eingaben überprüft und kontrol- 
liert. 

Ich denke, dafür gibt es eine kleine 
Routine, die sich an jeder Stelle eines 
Programmes einbauen läßt, ohne viel 
Platz zu benötigen. 



Tippen Sie die paar Zeilen einmal ab 
und machen den Test auf „Herz und 
Nieren"! Es wird Ihnen sicherlich viel 
Spaß und Freude bereiten. 
Dieses Basic-Programm wurde auf 
COMMODORE 64 und VC-20 ge- 
schrieben. Es dürfte jedoch auch auf 
anderen Computern ohne Verände- 
rungen laufen. R. Petiuck 



18 : 

20 REM ************************ 

30 REM * DATUM- INPUT-CONTRÜLL * 

40 REM ************************ 

50 PR1NTCHR*<147> 

60 PR INT "DATUM EINGEBEN" 

65 PRIHT 

70 PRINT"FORMAT: TTMMJJ" 

80 PRINTER INT 

9@ PRINT JPRINT 

106 INPUT" DATUM: "JDAT* 

116 L=LEN(DAT$> 

126 IFL06THEN 58 

130 TT$=LEFT$i::DAT$,2> 

140 MM$=MIDMDAT*,3,2> 

150 JJ#*«HHT*<X)HT**23 

200 TT=VALCTT$> :MMsVflL<MM$) ' JJ=VAL<JJ$> 

210 IF TT <i OR TT >32 THEN 50 

220 IF MM Cl OR MM >13 THEN 50 

230 IF JJ <1 OR J.J >99 THEN 50 

250 TEST** " 3 1 233 1 303 1 303 1 3 1 303 1 3@c 

260 AT$=M I D$ < TEST*; MM+MM- 1,2) 

280 IFTT>VAL<AT$>THEN 50 

230 IFMM <>2 THEN 508 

300 AJ=INT(JJ/4> 

310 IFftJOJJ/4 AND TT> 28 THEN 50 

508 PRINTCHR*<147) 

510 PR INT "DATUM 0K !" 



!T 



REfiDV. 




MIMQ 
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Schon gewußt? 1 



Konzertrei£e Stimme für den TI 99/4A 

Wer den Sound seines TI 99 aufmotzen will, braucht dazu nur einen Radiorecorder und die nachfolgende 



Bauanleitung. 

Wer sich mit dem flachen, dumpfen 
Ton eines 198 DM-Fernsehers herum- 
schlagen muß, ist sicher dankbar für 
eine kleine Verbesserung der 
Tonmöglichkeiten . 

Daß kleine Qualitätssteigerungen 
nicht unbedingt teuer und aufwendig 
sein müssen, beweist diese Bauanlei- 
tung. 

Die Voraussetzungen dafür sind denk- 
bar gut: An der Interfacebuchse für 
das Kassettenrecorderkabel liegt ein 
Audiosignal an, das sich zum An- 
steuern eines Radiorecorders, eines 
einzelnen Verstärkers oder sogar ei- 
ner Stereoanlage eignet. Dazu benötigt 
man lediglich einen 9poligen Joystick- 
stecker, mit dem man den Tonausgang 
des Computers anzapft und einen pas- 
senden Stecker für den Anschluß an 
den Verstärker. Hier findet ein dreipo- 
liger DIN-Stecker bei den meisten Ra- 
diogeräten Verwendung. Bei fast allen 
Radiorecordern reicht nach meiner 
Erfahrung eine einfache Verbindung 
zwischen Computer und Audioein- 
gangsbuchse des betreffenden Gerätes 
aus. Will man einen HiFi- Verstärker 
oder ein ähnliches großes Gerät an- 
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verwaltung; E, Herwig. Anzeigen- 
preis: Es gilt die Anzeigenliste Nr. 1. 
Bitte Media-Unterlagen anfordern. Be- 
zugspreise: Einzelheft (Inland) DM 
5,50, Abonnement (Inland) DM 55/-, 
(Ausland) DM 75,-. Autoren und Ma- 
nuskripte: Bei Zusendung von Manu- 
skripten und Datenträger erteilt der 
Autor dem Verlag die Genehmigung 
zum Abdruck und Versand der veröf- 
fentlichten Programme auf Datenträ- 
ger. Für die mit Namen des Verfassers 
gekennzeichneten Beiträge übernimmt 
die Redaktion lediglich die presse- 
rechtliche Verantwortung. Alle in die- 
ser Zeitschrift veröffentlichten Beiträ- 
ge sind urheberrechtlich geschützt. 
Nachdruck (auch auszugsweise) und 
Vervielfältigung nur mit ausdrückli- 
cher Genehmigung des Verlages. Für 
unaufgeforderte Einsendungen von 
Manuskripten, Tonträgern und Soft- 
ware wird keine Haftung übernom- 
men. 



schließen, ist jedoch fast immer noch 
ein Vorverstärker nötig, der zwischen 
Computer und Stereoanlage geschal- 
tet wird. 
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Die genaue Verdrahtung können Sie 
der Abbildung entnehmen. Der Ton- 
ausgang des TI 99 kann an der 9poli- 
gen Buchse an der Geräterückwand 
mit Pin 4 gegen Masse abgegriffen 
werden. Die Verbindung mit dem ex- 
ternen Verstärker stellt ein zweiadri- 
ges, nicht unbedingt abgeschirmtes 
NF-Kabel dar. Bei einem längeren Ka- 
bel empfiehlt sich trotzdem eine Ab- 



schirmung, um einen Netzbrummen 
zu vermeiden. 

Nach der Verdrahtung sollte man un- 
bedingt noch einmal alles auf seine 
Richtigkeit überprüfen, da Fehler so- 
wohl Computer als auch den ange- 
schlossenen Verstärker beschädigen 
könnten. 

Will man den Tonausgang des TI 99 
für die Ansteuerung eines externen 
Verstärkers benutzen, muß man die 
Recorderkabelbuchse jedesmal dafür 
freimachen. Deshalb für die User noch 
einen Tip, die sich auch das Recorder- 
kabel selbst zusammengelötet haben: 
Der Verstärkeranschluß kann natür- 
lich auch mit in dieses Kabel eingelö- 
tet werden. Dies ist bei gekauften Ka- 
beln leider nicht möglich, da die Stek- 
ker fest verschweißt sind. 
Noch viel Spaß beim Zusammenbau 
und bei den zukünftigen Videospielen, 
bei denen es ab jetzt kristallklar und 
hautnah kracht! 
Stückliste: 1 Joystickstecker 

1 Stecker, passend für 
benutzten Verstärker, 
evt. Vorverstärker für 
Stereoanlagen 
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Abonnement 



Bitte ausschneiden und senden an- 
Tronic-Verlag, Postfach 41, 3444 Wehretal 1. 

Hiermit bestelle ich die Zeitschrift »Computronic« ab Heft Nr 

Jahresabonnementpreis (12 Ausgaben) von DM 55,- incl. Versand, Inland 
und DM 75,- incl. Versand, Ausland. 



zum 



Name/Vorname: 

Straße, Nr. Plz, Ort: 

Ich wünsche folgende Zahlungsweise 
D Bargeldlos durch Bankeinzug: 



Bankleitzahl: 



Geldinstitut: 

D gegen Rechnung 
D gegen Vorkasse 

(betreffendes bitte ankreuzen) 



Konto Nr.: 



Datum, Unterschrift 



Abonnements-Kündigungen: 

6 Wochen vor Ablauf des Jahres- Abonnements. 

Außerdem kann ich diese Bestellung innerhalb von 10 Tagen beim Verlag 

widerrufen! 



Datum, Unterschrift 
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Verkäufe 



2 Der ganz heiße Bör- 

• sentip vom eigenen 

• Computer 

• Stockmaster: grafische 

• Stock-Control: mathe- 
£ mat. Auswertung f. 

• Spectrum 48K je Pr. 49,- 

• DM zus. nur 79,- DM. 

• Töngi 

• Aspeltstraße 4 
I 6500 Mainz 



Verkaufe das Buch Atari Basic 
Hofacker Nr. 32 für 25 DM, 1 
Monat alt. Außerdem verkau- 
fe ich Atari Software (Zax- 
xon ...). Liste gegen 80 Pf in 
Briefmarken bei Mario Noack, 
Raabestr. 36, 3420 Herzberg 



Verk. ZX 81/16 KCMEMO + 

80 Pr. + Reset 4- Shift Look + 
Rem-Ansteuerung + gr. Ta- 
statur + Bücher 4- 90 Listings 
4- Ein/Aus 4- gr. Netzteil für 
350,- DM: Suche Spektrum 
48 K, T. Bachmann, Johannis- 
bruch 9, 2357 Springe 1 

□□DDDODDGnDDDDDDDD 
D D 

n Tl 99/4A 4- Exbasic 4- □ 

g div. Bücher4-Rec.4-Ka- g 

D bei 4- Basic-Kurs, VB 

□ 750,- DM. 

H Tel.: 28 61 /48 45 

d Sa. ab 18.00 Uhr □ 

D D 

DDDDDaDQDDDDDDaaDD 

Verkaufe ZX-81 + 16 K + 
Drucker VB 300,- DM. Suche 
Atari- 600XL oder C-64. Dirk 
Wylezol, Am Mühlbachbogen 
41 b, 8052 Moosburg 



C-64-Superprogramme ge- 
gen Unkosten oder Tausch. 
Gratisliste bei Postlagernd 
058542 B, 7900 Ulm/Donau, 
Diskette oder Kassette 



Atari 400/800/600 XL/800 XL 
Software auf: C. 4- D. Liste 
anfordern bei: Power-Game 
Versand, Oerlinghauser Str. 
37 b, 4800 Bielefeld 18 



Verkaufe 

An ruf beantworter 

Drahtlosteiefon 

Telefon-Anlage 

Eurosignal 1200- DM 

div. USA-Telefone 

Info bei: 
Reinhard Winner 

Höchbergerstraße 62 
87 Würzburg 



Software für Commodore, Tel. 
02 74 72 99 



Wichtige Toolkits für Spectrum 
& C64, Spectrum Disassem- 
bler 1.1 (48 k), C64 Sprite 
Construction Set ZX81 
OMELS, ein Strategiespiel 
(16 k). Diese Pgms, u.v.a. m. 
für je DM 20- bei Daniel 
Schwinn, Meisenweg 6, 7073 
Lorch 



Verkaufe Taschenrechner Tl 

59, Disketten 8 Zoll SS/SD, 
Preise VHS. Willi Hirschlein, 
H. v. Hohenlohestr. 44, 6990 
Bad Mergentheim, Tel. 
07931/41605 



TI-99/4A+EXT Basic: universel- 
le Datenverwaltung mit Sor- 
tierfunktion u. 2 Suchalgo- 
rithm., 15.- DM inkl. Cass. + 
Anleitung, Geld/Scheck an 
Dirk Storck, Weserstr. 23, 
4840 Rheda-WD 



ZX 81 mit 64 KB, 5 Monate alt, 
in Philips-Terminal zu verkau- 
fen, als Beigabe 15 Spiele für 
den ZX 81. Angebote an: M. 
Kraemer, Weidenweg 6, 4970 
Bad Oeynhausen. 



Here is Wimpy! 

Hello User, biete für 
C-64 Disk beidseitig mit 
Topprogrammen für DM 
50,- auch Tausch. 
Mr. Wimpy 

4350 Recklinghausen 
Postfach 1017 21 



Commodore C 64 nur DM 

679,-, Floppy 1541 nur 679,-, 
Drucker MPS 801 nur DM 
669,-. Disketten 10 Stck. 55,-. 
Alle Geräte neu mit Garantie. 
Anruf lohnt sich!!! Tel.: 
75 62/34 30!!! 



Tl 99/4 A Ext. -Spiel nur für Er- 
wachsene - bitte Alter ang. 
zum absoluten Preishit von 
nur DM 10,- im Umschl. an T. 
Karbach, Remscheider Str. 
18, 5650 Solingen 1 



Wenn ihr „Mugsy von Melbour- 
ne House" wollt, dann kriegt 
ihr es für 35 DM (vielleicht) 
noch bei: Jan Weigner, Carl- 
Schurz-Str. 1 1 , 2800 Bremen 
1, Tel. 04 21 / 34 63 87 



Tl 99/4A. Erstelle Druckerli- 
sting v. Ihren Programmen in 
Tl- u. ext. Basic, je Pgm. -Zeile 
4 Pf. 4- 2,50 DM f, Portokass. 
m. V. -Scheck o. Briefmarken 
an H. Schwab, Loch 21 , 8504 
Stein 



oooooooooooooooooo 

o o 

o Tf-99/4a und alle Atari- o 

5 Computer für Ti: g 

O Adventure Modul mit O 

q Cassette Mission Impos- q 

O sible und Pirate Adven- o 

O ture: 160,- DM für Atari O 

§ Star Raiders für 70,- DM g 

O bei o 

£ O. Toffolo § 

O Tel. 46 62/17 33 o 

o o 
oooooooooooooooooo 



••• FLOPPY 1541 6x 
SCHNELLER! ••• durch 
Parallelbus für C 64. Interface 
kpl. geprüft mit Software nur 
DM 179,-. Info gegen DM 
1,50 in Brief mark., B. Akes- 
son, Pf. 802, 4040 Neuss. 



Ankäufe 



oooooooooooooooooo 

o o 

§ TI-99/4A g 

o Suche Extended Basic o 

O Modul evtl. Tausch ge- o 

§ gen Editoriassembler f=j 

O sowie Maschinen- o 

O Sprachprogramme z. B. o 

o Flugsimulator und Ex. q 

O Basic Spiel Miner 2049 o 

O (USA-Version). O 

§ Tel. 71 32/3 76 08 g 

o o 
oooooooooooooooooo 



Apple II suche Programme, 
Schachspiele, Flug-Simula- 
tion, versch. Vorspanntitel, 
Grafik für Video-Filme, T. Pa- 
vone, Heilbronnstr. 6, 7146 
Tamm 



Suche Seikosha 6P-100A 

Drucker mit Interface für ZX 
Spectrum, Lothar Schröder, 
Dellchenstraße 3, 6731 Fran- 
keneck 



Suche: Gute und billige Soft- 
ware auf Diskette für 64K Ata- 
ri 600XL. Angebote an: Mi- 
chael Ebeling, Riepener Stra- 
ße 7, 3061 Beckedorf 



Suche Atari Diskettenstation, 

Aussehen egal, Hauptsache 
sie funktioniert. Bitte anrufen 
unter Berlin 30 / 

4 93-19 27 



ZX Spectrum Soft- und Hard- 
ware. Preiswert durch Direkt- 
import. Info bei: Ursula Kunz, 
Junge Halden 3, 7500 Karls- 
ruhe 41 



• Suche Software für Ata- 

• ri 600XL, zahle gut! 
J Schickt eure Liste an: 

• Mario Noack, Raabestr. 

• 36, 3420 Herzberg 



Kontakte 



Hallo Spektrumfreaks. Ich 

möchte mit euch gerne Prog. 
tauschen. Liste, ob groß oder 
klein, an: Robert Weidinger, 
Schönmetzlerstr. 10, 8050 
Freising oder Sams - Diens, 
81 61 /43 72 



Kontakt mit MZ700-Leuten ge- 
sucht. Tel. 05 11 / 42 29 75 

OOOOOOOOOOOOOOOOOO 

O *** Atari-Spectrum- o 
o User-Club *** o 

O monatl. Info, bundesweit o 

O organisiert, riesige o 

§ Prog. -Bibliothek usw., § 

O melden bei: o 

§ ASUC, Am Schürhof 17 § 
O 4905 Spenge o 

O Tel. 52 25 / 20 68 O 

OOOOOOOOOOOOOOOOOO 

DDDDDDGDDDaonannnD 

D G 

□ Comp.-Club □ 
| Bad Hersfeld ° 

r sucht Mitglieder! 

n Kontakt über □ 

° Roland Reyer g 

D Am Giegenberg 21 

□ 6438,Ludwigsau 1 

□ oder Jugendhaus Hers- □ 

D feld d 

d n 

DDDDDaDDDüaDDDDDDD 



Tausch 



Tausche ZX Spectrum- 
Software (16/48), auch Mi- 
crodrive-Software benötigt. 
Michael Jedral 
Horststraße 6 
6729 Leimersheim. 
Schreibt schnell. Suche Ko- 
pierprogramme für Micro- 
drives 



C-64-Superprogramme ge- 
gen Unkosten oder Tausch. 
Gratisliste, Postlagernd 

05 85 42 B, 7900 Ulm/Do. 
Nur neueste Prg, 



VC 64: Tausche irre Superpro- 
gramme, über 40 echte Spiel- 
hallen-Games. Liste gegen 
Rückporto bei Michael Bran- 
denberger, Vor der Gasse 82, 
CH-8200 Schaffhausen 



ZX-Spectrum 

Software und Interessen- 
austausch 

Monika Baumgartner 
4021 Linz 

Postfach 1 42 Austria 
Bitte Liste beilegen 



76 



Computronic 



Verschiedenes 



16 K Modul f. ZX81, 65,- DM. 
Trak-Ball für Atari + Commo- 
dore, 1 Fevertaste, 99,- DM. 
Beides neu, unbenutzt. Ver- 
kaufe (2 DM - 4 DM) + tau- 
sche Spectr. Softw. Liste gr. 
T. Schröer, Hohlstr. 11, 6791 
Steinbach 

UFO-Forschung. Informa- 
tionen über UFOs etc. kosten- 
los. Suche Interessenten zum 
Aufbau einer Computer-AG (c 
64), spez. für wiss. UFO-For- 
schung! H. W. Peiniger, PF 
2361 , 5880 Lüdenscheid 

VZ 200 Softw. Info g. Freium- 
schlag. W. Fischer, Friedrich- 
str. 14, 6463 Freigericht 5 



□DDGDDDDDDDDDDDDDD 



Orig. engl. Software 

von EMJAY, (Wargame 
News, The War Machi- 
für Commodore- 



ne 



D 
D 
D 
□ 

D 

D 

□ Rechner ab 16k und 
D CBM 64! Näheres gegen 
° Freiumschlag von: 

□ H. Topf, A.-Bucherer- 
D Straße 63, 5300 Bonn 1 

D 



aDDDDDDDDnnDDDDDDD 

Die richtige Soft-Hardware? 

Ich sage Ihnen in welcher 
Zeitschrift. Info gegen frank. 
Rückumschlag bei: M. Kiwitt, 
2000 Hamburg 74, Postlage 
RND 



Tl 99/4A Software Service 

von Action bis Praxis. Info 
geg. 1 . — Rückporto Behring- 
str. 45, 4600 Dortmund 50 




C-64-Synthesizer: ca. 40 K, 
echte Noten, Partiturediting, 
Notenausdruck, Direktein- 
spielung + Notenumsetzung, 
Supersound. Info von Autor 
W. Kracht, Espellohweg 38, 
2000 Hamburg 52 



Roulettesoftware f Sharp PC 
121 1/1 2/4551 /PC '1500. Rou- 
lettesystemprogramme »Auf 
Dauer gew.« »AD Astra« 
»Number one« «Acclaim« 
»Plein Prive« »Accord« DM 
550,-Cass. B. Nowotny, Gise- 
lastr. 3, 8000 München 40 



An alle SF- und Fantasy- 
Freunde! Jeweils 8 Mitspieler 
für Strategiespiele gesucht. 
Mit Gewinnchancen. Näheres 
gegen Freiumschlag von: H. 
Topf, A.-Bucherer-Straße 63, 
5300 Bonn 1 



ZX-SPECTRUM! Spie 
lend BASIC lernen Ca. 
mit 10 Pr.-t-Listing+Er- 

klärung+Tips+Tricks für 
denZX. 10,- DM bei 
A. Meuser, Goethestr. 
18, 5205 St. Augustin 
NEU -SUPER ZX Spiele - 



Spectrum Softw. z B. M. Mi- 
ner 8,-; ZOOM 8,-; Liste + 
kostl. Programm anfordern, 
Karte genügt: H. Novak, Eger- 
länder PI. 19, 6053 Oberts- 
hausen 2 



TI-99/4A: ca. 90 Tl-Basic und 
ca. 80 Ex-Basic Programme 
zu verk. Info g. Rückum- 
schlag. B. Knedel, Tulpen- 
gasse 16, 3171 Weyhausen, 
Tel. 5362/7 11 87 



Aktion: Billige 
Kleinanzeigen 



Liebe Leser, 

wollen sie ein Kleinanzeige aufge- 
ben? Suchen Sie einen gebrauchten 
Home-Computer, Software oder 
Kontakte zu Computer-Clubs etc.? 

Dann nutzen Sie jetzt den Klein- 
anzeigenservice von „Compu- 
tronic". „Computronic" ist die 
Zeitschrift für Home -Computer- 
Besitzer. Sie erreichen durch uns 
eine Vielzahl von Lesern im In- und 
Ausland. 

Und so wird's gemacht: 

Kleinanzeigen-Coupon ausfüllen 
(alle Zeilen können ausgefüllt wer- 
den) und gegen 

Vorkasse von DM 4,50 einsen- 
den an: 

Tronic-Verlag 

Postfach 41 

3444 Wehretal 1 

Also, schnell ausfüllen und ein- 
werfen in den nächsten Postkasten. 
Dann ist mit Sicherheit Ihre Klein- 
anzeige dabei. 




Space Rest: 




Computronic 



Kleinanzeigen 



nur gegen Vorkasse 



Bitte veröffentlichen Sie ab nächstmöglicher Ausgabe unter der Rubrik: 
□ Verkäufe D Kontakte D Geschäftsempfehlungen 

D Ankäufe - □ Verschiedenes D Tausch 

folgenden Text: 



Bitte jeweils 28 Buchstaben pro Zeile! Bitte Absender nicht vergessen! 

Preis für Kleinanzeigen: Private Anzeige DM 4,50 je Zeile 

gewerbl. Anzeige DM 8,00 je Zeile 
Chiffregebühr • DM 10,00 je Anzeige 



Name/Vorname: 



Straße, Nr.: 



PLZ/Ort: 



Datum, Unterschrift 



privat D gewerbl. G 

(bitte ankreuzen) 



Computronic 
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Kassettenservice ^ 



HEFT 
4 



VC-64 K = 8,— DM 
D = 15,— DM 
Mauern, Widerstand 

ZX- 

Spectrum K = 12,— DM 
Inventur 

TI 99 K = 8,50DM 
Drei-Kronen-Spiel 

Zahlenputzen 

VC-20 K = 11,50DM 
D = 18,— DM 
Hangman, Saurer Regen, 
Quadr. Gleichung 

ZX-81 K = 8,50DM 
Invader, Gun-Man 



Dragon 3 2K = 

Blizzard 



8,— DM 



Apple II K = 14,50DM 
D= 19,50 DM 
Wilder Westen, 
Karambolage, 
Maskengenerator 

Atari K = 10,50DM 

Mastermind, 

Schlangenkrieg 



HEFT 
5 



TI 99 K = 14,50DM 

Karl der Käfer 

Alien-Landing 

VC-64 K = 15,50DM 
D = 23,50DM 
Space-Comets/Erdspalte/ 
Sprite-Data 

Apple II K = 9,50DM 
D = 19,50DM 
Musik-Maker/Mission- 

Adler/Disk-Catalog 

Sharp MZ 

700 K = 8,50DM 

Kalender 

Sharp PC 1500 Lotto 

Dragon K = 10,— DM 
32 

Space-Flight, Geosoft 

ZX-81 K = 10,— DM 
Go-Ball, Grand-Prix 

ZX 

Spectrum K = 8,50DM 
Missile-Comment 

Atari K = 12,50 DM 

Tank-Battle/Oil Panic 



f HEFT " 
6 




VC-64 K = 16,50DM 
D = 23,50DM 
Autostart/Bestellschein/ 
Roadpainter 




Dragon 

32/64 K = 8,50DM 

Wargames 




Apple II K = 12,50DM 
D = 19,50DM 
Snake/Super Datei/Shape- 
tables 




VC-20 K = 8,50 DM 
D = 15.00DM 
Bestellschein/Glücky 




ZX-81 K = 10,— DM 
Moon-Crash/ZX-Draw 




ZX- 

Spectrum K = 13,50DM 
Defender/Lui der Wurm/ 
Alternativer Zeichensatz 




TI-99 K = 14,50DM 
Jack the Digger/Noah - 

2099 




Atari K = 12,50DM 
Tomstone-City/Schneevogel 




■ m 





HEFT 

7 



VC-64 K = 15,50DM 
D = 19,50DM 
Hardcopy/Space-Fighter/ 
Data-Generator 

ZX-81 K = 10,— DM 
Tonprogramm/Aldeb aran 

Atari K = 12,50DM 
Startup/Zeilen-Split/ 
Chopper-Flight 

VC-20 K= 11,— DM 
D = 15,50DM 

Multigraph/All- Rammer 

ZX- 

Spectrum K = 12,50DM 

Matheprogramm/Bongo- 
Beecatcher 

Apple II K = 12,50DM 
D= 19,50DM 
Library/Fight 

Dragon 32K = 8,50 DM 
Laser-Attack 

TI-99 K = 14,— DM 

Lift Bär, 

ASC II'DEFTEIL 1 



computromc Bestellkarte-Kassettenservice 

Alle im Heft abgedruckten Programme können als zusätzlicher Service, zum Selbstkostenpreis, über den 
Verlag bezogen -werden. (Ausland nur gegen Vorkasse) 



Die Zustellung erfolgt: gegen Vorkasse LI 
innerhalb von 1 W r oche 



oder Inland per Nachnahme LJ 
+ Versandkosten 



Entnehmen Sie bitte aus unserer Preisliste die notwendigen Angaben für Ihre Bestellung: 

Bitte liefern Sie min 

D Cassette für -...'■. . - H Anzahl 



System 



□ Diskette für 

zum Preis von gesamt 



System 



_D Anzahl 
DM 



Nomf?/Vorname. 



Straße, Nr.: 



PLZ/Ort: 



Datum, Unterschrift 



i 
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Kassettenservice | 



Jedes Programm in Computronic wird einer Endkontrolle in unserem Hause unterzogen und genauestens geprüft. 
Alle im Heft abgedruckten Programme sind nach der richtigen Eingabe der Listings auch funktionsfähig. Viele Leser 
verlieren jedoch schnell die Geduld am Programmieren, sollte etwas einmal nicht klappen. Die häufigste Ursache 
von Störungen im Programm, sind unterlaufene Fehler bei der Eingabe. Verzweifeln Sie nicht, sollten Sie einmal kei- 
ne Zeit zum Programmieren haben oder sollte etwas nicht gelingen. Alle Programme werden im Verlag gespeichert 
und können ..jederzeit mit beiliegender Bestellkarte zum Selbstkostenpreis bezogen werden. 
Tragen Sie bitte alle notwendigen Angaben in die Bestellkarte ein. 



Rückgabe-Garantie: 

Wir garantieren: 

• kostenlosen Umtausch von defek- 
ten bzw. transportgeschädigten 
Datenträgern! 

• die Zusendung der Umtauschware 
erfolgt noch am Posteingangs- 
tag! 



Bestellung per Telefon: 

Wenn es schnell gehen soll ... rufen 
Sie uns an. Wir nehmen Ihre Bestel- 
lung gern entgegen. 

Tel.-Nr.: 56 51 - 4 06 93 oder 
5651-40643 
Tronic- Verlag, Postfach 41, 
3444 Wehretal 1 



Bitte beachten Sie: 

Sie ersparen sich zusätzliche Ko- 
sten (bis zu DM 5,~), wenn Sie per 
Vorkasse (bar, Verrechnungs- 
scheck) bestellen. 

Ausland: • Bestellung nur gegen 
Vorkassel 



HEFT 
8 



C-64 K = 16,50DM 

D = 23,50DM 
Monster Attack/Block- 
Painter/Epson-Drucker 

Atari K = 14,— DM 

D = 19,50DM 
Painter/Hardcopy 

Apple II K = 14,— DM 

D = 19,50DM 
Reversal 
Disk-Menue-Generator 

TI-99 K - 14,50DM 

D = 19,50DM 

Maya/ASC II DEF Teil 2 

ASC II DEF 
Teil 1+2 D = 
D = 
Laser 

2001 K = 

Andromeda 



19,50DM 
21,— DM 

8,50DM 



ZX-81 K = 10,— DM 

Irrgarten 3 D 

ZX- 

Spectrum K = 14,50DM 
Solitaire/Superstat. 
Kleinstes gem. Vielfaches 

VC-20 K = 11,— DM 
D = 19,50DM 
Zyklo/Meteorit 

13.— DM 



Dragon K = 

Hardcopy 



Tontaubenschießen k = \q qq j)M 
C-64 D = 19'50 DM 

Ein Spiel mit sehr guter Grafik für 
Ihren C-64. Nach den Regeln des 
sportlichen Tontaubenschießens müs- 
sen Sie versuchen, alle 25 Tauben, die 
einzeln oder auch als Dublette vom 
kleinen bzw. großen Haus kommen, zu 
treffen. 



HEFT 
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Colour 

Genie K = 10,— DM 

Fuchs und Hund 



C-64 



Projekt 
Datenbank 



K = 16,— DM 
D = 23,50DM 



Atari K = 14,— DM 
D = 19,50DM 
The Bie Quest 
Fünf gewinnt 

Apple K = 14,— DM 

D = 19,50DM 
Diamonds 
Hilfsprogramm 



TI99 

Transfer 
Silverspar 



K = 14,50DM 
D = 19,50DM 



Laser 

2001 K = 

Crazy Cake 



12,— DM 



ZX-81 

Reversi 



K = 10,— DM 



ZX-Spec- 
trum K 

Jump about 



= 14,50DM 



VC-20 K = 14,— DM 
D = 19,50DM 
Garten 
Schloß Gruselstein 

Dragon K = 10,— DM 

■I Anwenderprogramm B 



Im nächsten 
Heft 

wieder 

Neues, Infos, Tips & Tricks 

unser 
Forth-Kurs 

und natürlich wieder tolle 

Spiel- und Anwenderprogramme. 

Für den TI-99 bringen wir u. a.: 

Mother Duck 




Sind Sie schon einmal in die Rolle 
einer Entenmutter geschlüpft, die 
verzweifelt versucht, ihre Kinder zu 
füttern? 

Screen Designer 

Ein Maskengenerator, in Extented- 
Basic geschrieben. 

Für den Laser 2001: 
Cave Man 

Cave Man zeichnet sich besonders 
durch die hervorragende Grafik aus. 
Leo Neandertal lebt in der Steinzeit. 
Um sich und seine Familie ernähren 
zu können, muß er täglich auf die 
Jagd gehen. Am einfachsten ist es 
aber, dem Saurier Rex die Eier zu 
stehlen. 

Natürlich berücksichtigen wir wie- 
der alle gängigen Homecomputer. 
Systeme wie: Commodore 64, VC-20, 
ZX-Spectrum, ZX-81, Apple II, Dragon 
32 und den Atari. 

Also, auf zum Zeitschriftenhändler, 
ab 24. 9. 84 gibt es wieder eine neue 
„ Computronic " -Ausgabe . 

Es verabschiedet sich: 

Die Computronic-Redaktion 



Computronic 



79 



Kassettenservice 



aus unserem Angebot Seite 78 und 79: 



Tontaubenschießen: 

Für Commo- 
dore 64. Dem 

realistischen 
Tontauben- 
schießen 
nachempfun- 
den. Von ei- 
nem Katapult 
geschleuderte 
Tontauben 
müssen reak- 
tionsschnell getroffen werden. In diesem 
Spiel kann jeder seine eigene Meister- 
schaft austragen. Eine Supergrafik zeich- 
net dieses „Tontaubenschießen" besonders 
aus. In Computronic wurde dieses Pro- 
gramm noch nicht ausgedruckt. 







Tomstone-City: 

Eine kleine Stadt 
im „Wilden We- 
sten" gewährt *j 
Dir Schutz vor * 
Deinen Feinden. 
Solange Du sie 
nicht verläßt "" 
kann Dir nichts 
passieren. Au- 
ßerhalb der Stadt 
wirst Du jedoch 

gejagt. Gewählt werden kann zwischen ver- 
schiedenen Schwierigkeitsgraden. Ein Spiel 
für Atari 600/800 XL. 



»CKOOl 



Projekt: 



^ctmr ui 



Monster-Attak: 




Als Top- g— 
Programm f «" » 
auserwählt m 
von der I 
Redaktion, p. 
Sie sollen i 
eine ge- j 
fährliche : 

Mission Bf t :> : ^ t 1 1 

ausführen. ' 
Um für die 

nächste Zeit genügend Uran zur Verfü- 
gung zu haben, sollen Sie eine Reise 
zum Mond unternehmen und nach dem 
edlen Metall suchen. Ihre Reise ist in 
fünf Phasen aufgegliedert, die nachein- 
ander bewältigt werden müssen. Ein 
schönes Spiel für den Commodore 64. 




Maya: 




Für den Commodore 64. Fremde Wesen greifen 
die Erde an. Versuchen Sie die angreifenden 
Monster vor Erreichen der Erde zu zerstören. 
Das Spiel unterteilt sich in 6 Level, wobei bei 
jedem Level die Spielgeschwindigkeit sowie die 
erreichbare Punktzahl ansteigt. Das Spiel wird 
mit Joystick gespielt. 



Crazy-Cake: 

Backe, backe 
Kuchen ... Set- 
zen Sie Ihre Bäk- 
kermütze auf, 
denn hier 

kommt... die 
verrückte Ku- 
chenbäckerei. 
Das Spiel ist in Laserbais für den Laser 2001 
geschrieben und wird mit Joystick gesteuert. 




Das Spiel läuft auf dem TI- 
99/4 A mit dem Extented Ba- 
sic Modul und wird mittels 
Joystick gesteuert. Der 
Rechner kann in diesem 
Spiel bis zu 3781! verschie- 
dene Bildschirmszenen dar- 

stellen. Das Spiel verfügt 

über eine hervorragende 
grafische Darstellung. Be- 
gleiten Sie also Coconut Joe 
auf die abenteuerliche Expe- 
dition in den Urwald. Viel- 
leicht haben Sie Glück und 
finden die Schätze der 
Mayas. 

Jump about: — 

Ein kleiner Floh 
und sein Freund ha- 
ben ein schweres 
Schicksal zu mei- 
stern, Sie sind beim 
Herumhüpfen un- 
bewußt in den Ein- 
flußbereich eines 
bösen Magiers ge- 
raten. Nun gilt es, 
den Weg in die 

Freiheit zu finden. Ein Spiel für den ZX-Spec- 
trum mit toller Graphik. 




Computronic erscheint monatlich im Tronic- Verlag. Der Bezugspreis beträgt im Inland DM 5,50. 
Im Preis ist die gesetzliche Mehrwertsteuer enthalten. _ 
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